Как добавить текущую запись из DbGrid в StringGrid?

for i=0 to simpledataset1.Fields.Count-1 do
stringgrid.cells[i,1]:=simpledataset.fields[i].asstring

for i=0 to ADOquery1.Fields.Count-1 do
stringgrid.cells[i,[B]k[/B]]:=ADOquery1.fields[i].asstring
k:=k+1;

 k:=1;
for i=0 to ADOquery1.Fields.Count-1 do
stringgrid.cells[i,k]:=ADOquery1.fields[i].asstring
k:=k+1;

k:=1;
for i=0 to ADOquery1.Fields.Count-1 do
stringgrid.cells[i,k]:=ADOquery1.fields[i].asstring[B];[/B]
k:=k+1;

var
  Form1: TForm1;
  k: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  for i:=0 to ADOquery1.Fields.Count-1 do
stringgrid1.cells[i,k]:=ADOquery1.fields[i].asstring;
k:=k+1;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
k:=1;
end;

var
  Form3: TForm3;
  k:integer;
implementation
 
uses zakaz;
 
{$R *.dfm}
 
procedure TForm3.Timer1Timer(Sender: TObject);
begin
label3.caption:= Datetostr(now);
label2.Caption:= Timetostr(now);
 
end;
 
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
close;
end;
 
procedure TForm3.SpeedButton2Click(Sender: TObject);
var i:integer;
begin
k:=1;
for i:=0 to ADOQuery1.Fields.Count-1 do
form2.stringgrid1.cells[i,k]:=ADOQuery1.fields[i].asstring;
k:=k+1;
  end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
k:=1;
end;
 
end.