procedure TForm1.DBGrid1CellClick(Column: TColumn); begin StaticText1.Caption:=Column.Field.AsString; end;