Operator ist auf diesen operatortyp nicht anwendbar

[Demon666]

Hallo

ich muss bis morgen ein programm für die schule schreiben das die rechtschreibung eines textes überprüft, aber ich bekomme andauernd die meldung "Operator ist auf diesen operatortyp nicht anwendbar"

weiß jemand warum?
(ich würde mich über schnelle antworten freuen, ihr seht ja ich bin etwas unter zeitdruck )

hier mein code:

Delphi-Quellcode:

procedure TFormrechtschreibung.Rechtschreibungpruefen;
var woerterbuch: Tstringlist;
    Zeile: string;
    wort: shortstring;
   wortanfang, wortende, s, r : integer;
begin
  woerterbuch:=Tstringlist.create;
  woerterbuch.LoadFromFile('wörterbuch.txt');
  wortanfang:=1;
  wortende:=1;
  Zeile:=Form1.Memo.Lines[i];
  for r:=1 to Length(Zeile) do
  begin
  wort:='';

        if Zeile[wortende] in [char( 32)..char( 64)]
     or if Zeile[wortende] in [char( 91)..char( 96)]
     or if Zeile[wortende] in [char(123)..char(126)]
     or if Zeile[wortende] in [char(128)..char(137)]
     or if Zeile[wortende] in [char(143)..char(153)]
     or if Zeile[wortende] in [char(160)..char(191)]
     or if Zeile[wortende]=char(139)
     or if Zeile[wortende]=char(141)
     or if Zeile[wortende]=char(155)
     or if Zeile[wortende]=char(157)
     or if zeile[wortende]=char(215)
     or if zeile[wortende]=char(247)    then

      begin
        wort:=Copy(Zeile,Wortanfang,Wortende-1);
          for s:=0 to Woerterbuch.count-1 do
          begin
            if wort<>woerterbuch[s] then
            begin
              Edfalscheswort.Text:=wort;
              exit;
            end; //von if
            end; //von for
            end
          else
            wortende:=wortende+1;
            if wortende=Length(Zeile) then
              i:=i+1;

        end;//von if
   end; //von for

   end;

EDIT: ich benutze übrigens delphi 7