[Zevseg]

Вот

Код:

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
label1.Caption:=dbgrid2.DataSource.DataSet.Fields.Fields[column.Index].AsString;
end;