Ich denke mal das in dem Fall wohl das with bleiben muß.
Alles was mit with geht, muss ohne erst recht gehen. Diejenigen, die Beispiele genannt haben sind wohl davon ausgegangen, dass sort eine globale Variable ist. Um mal eines der Beispiele aufzugreifen:
Delphi-Quellcode:
procedure TFRM_Main.DBG_BuecherTitleClick(Column: TColumn);
var
sort, fieldname: string;
begin
fieldname := DM_Buecher.ADS_Buecher.Column.Field.FieldName;
sort := DM_Buecher.ADS_Buecher.sort;
if sort = fieldname then
sort := fieldname + ' DESC'
else
sort := fieldname;
DM_Buecher.ADS_Buecher.sort:=sort;
end;