1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.Timer2Timer(Sender: TObject);
var x:integer;
    i : word; 
    y : word;
    zuschicken,y2:string;
    WHandle: THandle;
begin
For i := 0 To Liste.Items.Count-1 Do
begin
  if Wechseln.Checked=false then zuschicken:= Text.text;
  if Wechseln.Checked=true then zuschicken:= Liste.Items.Strings[i];
     WHandle := getforegroundwindow;
     BringWindowToTop(WHandle);
     for x := 1 to length(zuschicken) do
          begin
          y2:=zuschicken;
          delete(y2,x+1,length(y2));
          while length(y2) > 1 do delete(y2,1,1);
          y:= strtoword(y2);
          keybd_event(VkKeyScan(chr(y)),0,0,keyeventf_keyup);
     end;
keybd_event(VkKeyScan(chr(vk_return)),0,0,keyeventf_keyup);
timer1.Enabled:=false;
end;
end;