Spaltennamen eines DBGrids auslesen

Label1->Caption = DBGrid1->Columns->Items[Spaltennummer]->FieldName;