تحويل من الحروف الكبيرة الى الحروف الصغيرة والعكس

procedure TForm1.Button1Click(Sender: TObject);  //  Procedure begin
begin
       Label1.Caption := LowerCase(Edit1.Text); // minuscule
end;   //  Procedure end

procedure TForm1.Button2Click(Sender: TObject); //   Procedure begin
begin
      Label2.Caption := UpperCase(Edit1.Text); // majuscule
end;  // Procedure end