Datensätze im DBGrid sortieren

[Privateer3000]

Hallo, mit folgender procedure will ich die Datensätze
in einem DBGrid sortieren:

Delphi-Quellcode:

procedure TForm4.bagridTitleClick(Column: TColumn);
begin
with artikel do begin
  Close; SQL.Clear;
  SQL.Text:='SELECT * FROM basisart ORDER BY :LI1 ASC';
  Prepared:=True;
  Parameters.FindParam('LI1').Value:=Column.FieldName;
  Open;
end;
end;

nach einem Click passiert auch was, allerdings ist nicht
ersichtlich was er sortiert hat. Jedenfalls nicht das
auf das ich geklickt habe.
Nach einem 2. klick passiert garnichts mehr...
Ist irgendwas falsch am Code, oder muss an der Kompo
noch eine Eigenschaft eingestellt werden?

Grüße