How to select dbgrid row by click

[Сергей Александрович]

In Properties:
dgTails.columns[1].LinkField := KLY;

and

procedure TfmTail.dgTailsColumns1Click(ASender: TObject; const AValue: string);
begin
with dmTail do
begin
if tTails.FieldByName('KLY').AsString = AValue then
begin
btPlanClick(ASender);
end else begin
tTails.First;
while not tTails.Eof do
begin
if tTails.FieldByName('KLY').AsString = AValue then break;
tTails.Next;
end;
end;
end;
end;