Suche nach einem Zeichen in einem Edit

[Nikolas]

Ich will verhindern, dass in einem Edit mehr als ein komma eingegeben wird.
Deswegen versuche ich bei jedem Keypress das edit zu durchsuchen indem ich mir von jedem Zeichen den Ascii-Wert anschaue.

Delphi-Quellcode:

for i:= 0 to length(edi1.text) do
begin
      
if ord(edit1.Text[i]) = 44
        then
        Kommagefunden:=true;
end;

bei der if-Zeile bekomme ich aber einen EAccessViolation und ich komm nicht darauf warum.

Vielen Dank

THXbyTOX