Hallo,
andere Alternative wäre
DBGrid1.Columns.Items[0].Title := 'Spalte A';
Hiermit bekommst Du den Inhalt der ersten Zeile des Datasets als Spaltenüberschrift.
Delphi-Quellcode:
procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
Var
i : Integer;
begin
DataSet.First;
for i := 0 to DBGrid1.Columns.Count - 1 do begin
DBGrid1.Columns.Items[i].Title := DBGrid1.Columns.Items[i].Field.AsString;
end;
end;