OnDblClick в DBGrid и открытие новой формы

procedure TTurnirForm.TurnirGridDblClick(Sender: TObject);
begin
if turnirGrid.DataSource.DataSet.FieldbyName('NAME_T').AsString=Form2.DBGrid1.DataSource.DataSet.FieldByName('NAME_T').AsString
then
Form2.ShowModal;
end;

Form2.DBGrid1.DataSource.DataSet.Locate(
   'NAME_T', Form1.turnirGrid.DataSource.DataSet.FieldbyName('NAME_T').AsString, []
);

Uses DB;
 
//// <<< ---
 
procedure DSMoveTo(dts: TDataSet; index: integer);
begin
  dts.MoveBy(index-dts.RecNo);
end;
 
class function DSLocate(dts: TDataSet; colname: string; value: Variant): boolean;
var i:integer;
begin
  i:=dts.RecNo;
  dts.DisableControls; // отключение сетки
  dts.First;
  result:=false;
  while not dts.Eof do begin
    if dts.FieldByName(colname).Value = Value then begin
      result:=true;
      dts.EnableControls; // включение сетки
      exit;
    end;
    dts.Next;
  end; // end while
  DSMoveTo(dts,i);
  dts.EnableControls; // включение сетки
end;
 
//// <<< ---
 
 
// использование
DSLocate(
   Form2.DBGrid1.DataSource.DataSet,
   'NAME_T',
   Form1.turnirGrid.DataSource.DataSet.FieldbyName('NAME_T').AsString
);