[Black Raider]

Сообщение от windaws

как просто все оказывается а я думаю может там событие какое есть чтобы определяло второй щелчек.....

А что за флаг, интересно?

Объяви глабальную переменную

Код:

fl:boolean;

и на шелчке тогда будет вот так:

Код:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
Var
  f:string;
begin
  f:= Column.FieldName;
  fl:=not fl;
  if fl then dm.Tovar.Sort:=f
  else
    dm.Tovar.Sort:=f + ' DESC';
end;