In einen Memo nur Zahlen zulassen - Wie?

[Andreas L.]

Zitat von Spider:

Einfach ins OnKexPress:

Delphi-Quellcode:

if not Key in ['1'..'9','0'] then
  Key := '';

Code:

Operator ist auf diesen Operatorentyp nicht anwendbar!

<-- Der Compiler setzt dne Curser vor "in".

Mein Code:

Code:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if not key in ['1','2','3','4','5','6','7','8','9','0'] then
Showmessage('Bitte nur Zahlen von 0-9 eingeben!');
end;

Was ist mein Fehler?