Organizar datos en un DbGrid

[ASUNCION]

Saludos a todos...

Como puedo organizar los datos de un dbgrid dando un click en el titulo de la columna...

coloqué este codigo en el evento OnTitleClick de la columna pero no me funciona.

procedure TfLecturaArchivo.gridTmpFileTitleClick(Column: TColumn);
var campo : String;
begin
campo := Column.FieldName;
dm.qSolicitudes.SQL.Clear;
dm.qSolicitudes.SQL.Add('select * from Solicitudes order by "'+campo+'"');
dm.qSolicitudes.Open;
showmessage('Fue ordenado por: '+Campo);
end;