Komisch, wenn ich es so mache
Delphi-Quellcode:
if DBgrid1.SelectedIndex > -1 then
DBText1.DataField := DBGrid1.Columns[DBgrid1.SelectedIndex].Field.FieldName
else DBText1.DataField := '';
dann kommt beim nächsten Zugriff auf dem DBGrid eine Fehlermeldung.