Delphiproblem - Taschenrechner brauche hilfe !

[user0815]

Pack die Abfrage doch in das Edit Feld:

Button1 = Komma

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Ansipos(DecimalSeparator, Edit1.Text) > 0
   then Button1.Enabled := False
    else Button1.Enabled := True;
end;