var
  x : integer;
  code : word;
begin
  edit1.SetFocus;
  for x := 1 to length(edit2.Text) do
  begin
    code := VkKeyScan(edit2.Text[x]);
    if code and $100 <> 0 then keybd_event(VK_SHIFT, 0, 0, 0);
    keybd_event(code, 0, 0, 0);
    if code and $100 <> 0 then keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
  end;
end;