edit soll nur zahle annehmen

[magic87]

hallo!
Ich habe ein Problem. Und zwar soll mein Editfeld nur Zahlen annehmen. Das ganze soll ich über ein Feld array machen und mit einer funktion in die ich eine Schleife einsetze. Mein bisheriger Quelltext sieht so aus:

Delphi-Quellcode:

const
  Ziffern : array[1..10] of char = ('0','1','2','3','4','5','6','7','8','9');
...
function IsOK(Key : char) : boolean;
...
function TForm1.IsOK(Key : char) : boolean;
begin
//Hier müsste eine Schleife die überprüft ob Zeichen in array oder nicht und wenn nicht ihr verbieten das Zeichen ins Editfeld zu schreiben
end;

Ich hoffe mir kann geholfen werden. Bin dankbar für jeden Tipp.
Liebe Grüße
Magic