Spalten in einem DBGrid verschieben und auch sortieren!

[m-werk]

Ich hab da ein kleines problem:

Ich habe im Formular unter 'type' folgendes eingegeben:

Code:

THackAccess = class(TCustomGrid);

und weiters

Code:

procedure MoveDBGrid1Columns(DBGrid1: TDBGrid; FromColumn, ToColumn: Integer);
begin
  THackAccess(DBGrid1).MoveColumn(FromColumn, ToColumn);
end;

Wenn ich das Prog. jetzt starten möchte, kommt eine Fehlermeldung:

':'erwartet, '=' gefunden

Das ist bei der Zeile unter Type.

Was mach ich da falsch?
Ich möchte, dass der User die Colums im DBGrid verschieben kann, wie er möchte.

Weiters hab ich noch ne frage:
In den Colums werden Datensätze wie z.B. Name Vorname usw angezeigt.
Wie kann ich es erstellen, dass wenn ein User auf eine Columsüberschrift klickt, die Daten entweder von A-Z oder von Z-A sortiert werden. (Dies soll für jede columne so sein!)