Problem mit hochkomma in String

[chrisw]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var stri : String;
    i,HochKommaZaehler : Integer;
begin
  HochKommaZaehler := 0;
  stri := ' 1'' 2'' 3'' 4'' ';    // 4 Hochkommas
  for i := 1 to length(stri) do  if stri[i] = '''' then inc(HochKommaZaehler);
  showmessage(Inttostr(HochKommaZaehler)); //Ergebnis = 4
end;