Mesela oto tus basma programı yapıorum

şole bi duzenek hazırladım memoya girdigim tusları dondu halinde Basıcak kodlar
forma ;
Button(1 adet) Memo(2 adet) Timer(1 adet) yerleştirdim

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i:integer;
begin
memo2.Lines.Add(inttostr(key)); //memo 2 ye key kodlarını atıyor
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
winhand:hwnd;
i,x:integer;
begin

timer1.Enabled:=False;
winhand:=GetactiveWindow; // aktif pencereyial
setforegroundwindow(winhand);
for i:=0 to memo2.Lines.Count-1 do //harfleri yazması icin dongu
begin
keybd_event(strtoint(memo2.Lines),0,0,0); //memo2den karakterialıp yolluyor
keybd_event(strtoint(memo2.Lines),0, Keyeventf_keyup,0);
end;
end;


Ama yinede Calıstıramadım Yardım Edicek Varsa msn:[email protected]

__________________