تبدیل حروف کوچک انگلیسی به حروف بزرگ

[hadiaj168]

procedure TForm1.Edit1Change(Sender: TObject);

begin

      Edit1.text:=uppercase(Edit1.text);

      keybd_event(35,0,0,0);

      keybd_event(35,0,2,0);

end;