Problem mit hochkomma in String

[Waldteufel]

Hi.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var stri : String;
    i    : Integer;
    ZwischenZweiHochkommas : Boolean;
begin
  stri := 'Select * from ARTIKEL where a_nr = ''Hallo''';
  ZwischenZweiHochkommas := False;
  for i := 1 to length(stri) do
  begin
    if stri[i] = '''' then  begin
      ZwischenZweiHochkommas := not ZwischenZweiHochkommas;
    end;
    if not ZwischenZweiHochkommas then begin
      if (ord(Stri[i]) >= 65) and (ord(Stri[i]) <= 90) then begin
        Stri[i] := chr(ord(stri[i]) +32); // <-- hier wird umgewandelt
      end;
    end;
  end;
  showmessage(stri);

end;

end.