нужно сделать чтобы в отчете выводилась та запись которая выделена в DBGrid, а то у меня постоянно выводится первая запись,помогите пожалуйста.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, RpRender, RpRenderHTML, RpCon, RpConDS,
  RpDefine, RpRave, Grids, DBGrids, DB, ADODB;
 
type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    RvRenderHTML1: TRvRenderHTML;
    Memo1: TMemo;
    Image1: TImage;
    Button3: TButton;
    RvProject2: TRvProject;
    RvDataSetConnection2: TRvDataSetConnection;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1; x,y,z,i,j:string;  c:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Active:=false;
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('SELECT NameM,Price,Data,Comments,Photo');
  adoquery1.SQL.Add('From Tabl');
  adoquery1.Open;
 adoquery1.Active:=true;
end;
 
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   j:=DataSource1.DataSet.FieldByName('Data').AsString;
  i:=DataSource1.DataSet.FieldByName('Price').AsString;
 x:=DataSource1.DataSet.FieldByName('NameM').AsString;
y:=DataSource1.DataSet.FieldByName('Comments').AsString ;
z:=DataSource1.DataSet.FieldByName('Photo').AsString ;
c:=DataSource1.DataSet.FieldByName('ID_code').AsInteger ;
Label1.Caption:= (x);
Memo1.Clear;
memo1.Lines.Add(y);
image1.Picture.LoadFromFile(z);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
RvProject1.Execute;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
RVProject2.Execute;
end;
 
end.

adoquery1.FieldByName('Data').AsString;
и так далее...

procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Active:=false;   // этот оператор
 adoquery1.Close;              // равнозначен этому
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('SELECT NameM,Price,Data,Comments,Photo');
 adoquery1.SQL.Add('From Tabl');
 adoquery1.Open;         // тут тоже самое
 adoquery1.Active:=true;      // тут тоже самое
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  adoquery1.SQL.Text:= 'SELECT NameM, Price, Data, Comments, Photo FROM Tabl';
  adoquery1.Open;
end;