Hallo,
hier mal was zusammengeklickt.
Delphi-Quellcode:
var
Form1: TForm1;
MyVar: Boolean;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
iTemp: Integer;
begin
if not (Key in [#48..#57, #8, #44]) then
Key := #0;
for iTemp := 0 to Length(Edit1.Text) do
begin
if Edit1.Text[iTemp] = #44 then
begin
MyVar := True;
end; //if
end; //for iTemp
if MyVar and (Key = #44) then
begin
Key := #0;
ShowMessage('Blupp');
end; //if
end;
So ungefähr könnte das aussehen. Es ist nicht fertig, aber den Rest müsstest Du auch alleine hinbekommen. Da gehören noch 1-2 Abfragen rein. Aber im groben sollte es das tun.
Grüsse, Daniel