Probleme mit Vergleich

[MisterNiceGuy]

In der Funktion gibts nen seltsamen Fehler. Ne Exception an der marklierten Stelle.

Code:

function TForm1.is_there_a_similarity(any_text:string):boolean;
var i,j:integer;
    zeile, neue_zeile:string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
     zeile := memo1.Lines[i];
     if zeile[1]='$' then
     begin
-->          neue_zeile := tausche(zeile);
          if neue_zeile = any_text then
          begin
                result := true;
                answer_in_line_x := j;
          end;
     end;
if not result = true then result := false;
end;
end;

die function tausche funktoinoniert einwandfrei!!
Also wenn einer den Fehler findet, immer her mit der Lösung *g*
THX