Hallo Fengi,
das war aber nicht Deine erste Frage!
Code:
dbg1.Columns.Clear;
i := 0;
dbg1.Columns.Add;
dbg1.Columns.Items[i].FieldName := 'Datum';
dbg1.Columns.Items[i].Width := 150;
inc(i);
dbg1.Columns.Add;
dbg1.Columns.Items[i].FieldName := 'uhrzeit';
dbg1.Columns.Items[i].Width := 250;
inc(i);
dbg1.Columns.Add;
dbg1.Columns.Items[i].FieldName := 'beschreibung';
dbg1.Columns.Items[i].Width := 400;
mfg
eddy