Außerdem kannst du nicht innerhalb eines With-Statement-Blocks debuggen. Das ist der größte Horror.
Sag mir mal hier die Werte für Count, Sorted und CaseSensitive:
Delphi-Quellcode:
procedure Test;
var
StringList: TStringList;
begin
with TStringList.Create do
begin
Add('asdfasdf');
if Count > 0 then
begin
Sorted := CaseSensitive;
end;
Free;
end;
end;