Spalten in einem DBGrid verschieben und auch sortieren!

[m-werk]

Code:

type
  TKundenDruckMenue = class(TForm)
  THackAccess = class(TCustomGrid)  
    Button2: TButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    .... usw.