Texte auf Ähnlichkeit vergleichen

[Stanlay Hanks]

Hallo zusammen. Ich hab mir hier eine Funktion geschrieben, die, wenn zwei texte ungefähr gleich sind, true zurückgibt. Aber irgendwo hab ich einen Fehler:

Delphi-Quellcode:

function TSuchenForm.FehlerToleranz(FehlerStr, VergleichStr: String;
  Toleranzwert: Integer): Boolean;
var j, fehler: Integer;
begin
For j := 0 to Length(FehlerStr) do begin
 IF FehlerStr[j] <> VergleichStr[j] THEN //Hier wird jeder der Zeichen der zwei texte verglichen
    fehler := fehler +1;
end;
IF Fehler <= ((Toleranzwert / 100) * Fehler)  THEN //Wahrscheinlich hab ich hier einen Fehler gemacht, beim ausrechnen des Prozentsatzes
FehlerToleranz := true;
end;

Danke. Man liest sich. Stanlay 8)