Passwortabfrage durch IB

[Quake]

Delphi-Quellcode:

procedure TForm1.ED_PasswortKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin 
    if (Key=VK_RETURN) then
    begin
      Key:=0;
      .
      .
      .
      SucheStartBtnClick(Sender);
    end;
end;