editfeld nur zahlen und komma?

[arcangel]

hi, ich hab noch eine frage.. und zwar:

Delphi-Quellcode:

procedure TForm1.edteinkaufspreisKeyPress(Sender: TObject; var Key: Char);
begin
   If not(key in [#48..#57,#8, #44]) OR (pos(',',edteinkaufspreis.Text) < -1)
   then key := #0;

end;

damit verhindere ich die eingabe von buchstaben usw. bzw. ich lasse nur noch "0-9" "," und backspace zu...

jetzt wollt ich das noch (OR) so machen das die eingabe eines 2. kommas jedoch verhindert wird allerdings blockert das editfeld jetzt komplett nach der eingabe eines kommas und auch die zahlen sind nicht mehr eingebbar

jetzt brauch ich mal nen denkanstoss oder codeschnipsel den ich mir mal anschauen kann...

wie gesagt onkeypress soll nur "zahlen" "," und "backspace" zulassen jedoch kein zweites komma zulassen aber auch nicht blockieren, danke