Mir fällt auch diese Funktion auf:
Delphi-Quellcode:
function Ansicomparetext(s1,s2:string):integer;
var blub:integer;
begin
blub:=ansicomparetext(s1,s2);
end;
AnsiCompareText kenn ich nicht (gibt es den Borland-Units irgendwo?). Aber so wie das dort aussieht, ist das eine Endlosschleife, die immer nur in eine lokale Variable schreibt.