Mehrere Tasten in einer Procedure abfragen?

[mat72]

Hallo himitsu,
ich habe deinen Vorschlag mal ausprobiert.

Code:

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key in [#13, #01, #09] then 
    begin
     try
         ol:=StrToFloat(Edit1.Text);
         Edit2.SetFocus;
         ol:=ol;
     except
         ShowMessage('Please enter only Numbers!');
         Edit1.Clear;
         Edit1.SetFocus;
    end;
 end;
end;

Leider nimmt das Programm die Tab-Taste und die linke Maustaste nicht.
Mit Enter kann ich die Werte übernehmen. Habe ich noch einen Fehler in der Procedure?
Danke.