[Sprinter_One]

Всем спасибо!!!
Решил проблему так:
1) Объявил новый класс:

Код:

THackGrid = class(TDBGrid)
public
property Col;
property Row;
end;

2) В обработчике событий OnDblClick компонента DBGrid записал следующее:

Код:

procedure TForm1.dbgrd1DblClick(Sender: TObject);
begin
if (THackGrid(dbgrd1).Col=2) and (THackGrid(dbgrd1).Row=1) then
begin
Form2.show;
end;
end;

ВОТ КОД, НАДЕЮСЬ КОМУ-НИБУДЬ ПОМОЖЕТ:

Код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
dbgrd1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure dbgrd1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

THackGrid = class(TDBGrid)
public
property Col;
property Row;
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.dbgrd1DblClick(Sender: TObject);
begin
if (THackGrid(dbgrd1).Col=2) and (THackGrid(dbgrd1).Row=1) then
begin
Form2.show;
end;
end;
end.

// Form2.show; - не забудте создать вторую форму

Bargest: не забываем оформлять код тегами!