Hallo,
hier ist mal ein bisschen Code der Sicherlich funktioniert.
Nimm einfach zwei Edits und ein Button.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
iFor, iFehler: integer;
begin
iFehler := 0;
for iFor := 0 to Length(Edit1.Text) do
begin
if Edit1.Text[iFor] <> Edit2.Text[iFor] then
Inc(iFehler);
end;
ShowMessage(IntToStr(iFehler));
end;
Das ganze basiert natürlich da drauf, das die Länge der Texte in den Edits, absolut gleich ist, daher Vermute ich die utopische Zahl von oben, das Du im zweiten Edit warscheinlich ein kürzeres Wort hast.
Grüsse, Daniel
