Suche nach einem Zeichen in einem Edit

[himitsu]

PS:

Delphi-Quellcode:

If Pos(',', Edit1.Text) > 0 Then KommaGefunden := True;

{ entspricht deinem }

For i := 1 to Length(Edi1.Text) do 
  If Ord(Edit1.Text[i]) = 44 Then KommaGefunden := True;

For i := 1 to Length(Edi1.Text) do 
  If Edit1.Text[i] = ',' Then KommaGefunden := True;

Ist nur etwas schneller und einfacher.