Also dann würd' ich es so versuchen:
Delphi-Quellcode:
function TesteListen(sl1, sl2 : TStringList) : Boolean;
var
i : Integer;
begin
Result := sl1.Count = sl2.Count;
if not Result then exit;
i := 0;
repeat
Result := sl1[i] = sl2[i];
inc(i);
until not Result or (i >= sl1.Count);
end;