til stony

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key = 'a' then
begin
  keybd_event(VK_BACK,45,KEYEVENTF_EXTENDEDKEY,0);
      keybd_event(VK_BACK,45,KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP,0);
    edit1.Text := 'noway';
      End;




end;

Det er lige meget med point.
Jeg har vist fået rigeligt, men jeg vil gerne høre om det virker.

Stoney

.