Добавление строк в StringGrid

[Asblue]

Есть 2 таблицы SG1 и SG2:
9b8f735fb168.jpg
Нужно, чтоб при нажатии Кнопки в SG2 добавлялись строки из SG1.
В моём коде все данные из первой таблицы добавляются в одну строку второй, а нужно, чтоб каждый раз в новую строку:

Мой код программы конечно бредовый... прошу помочь!

unit Unit1;
interface 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
info=record
a,b:string[20];
end;

var
Form1: TForm1;
f:file of info;
var r:info;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,l,N:integer;
begin
N:=0;
StringGrid2.Cells[0,N+1]:=r.a;
StringGrid2.Cells[1,N+1]:=r.b;
N:=N+1;
begin
k:=0;
l:=0;
for i:=0 to StringGrid2.RowCount-1 do
for J:=1 to StringGrid2.ColCount-1 do
StringGrid2.Cells[i,j]:='';
for i:=1 to N do
begin
k:=k+1;
l:=l+2;
StringGrid2.Cells[0,k]:=StringGrid1.Cells[0,i];
StringGrid2.Cells[1,k]:=StringGrid1.Cells[1,i];
StringGrid2.Cells[0,l]:=StringGrid2.Cells[0,k]+StringGrid2.Cells[0,l];
StringGrid2.Cells[1,l]:=StringGrid2.Cells[1,k]+StringGrid2.Cells[1,l];
end;
end;
end;

end.

В другом разделе по этому же вопросу мне написали:
"Слишком много мусора в коде. Зачем ты описываешь файл записей, если потом его не используешь? Самое начало модуля тоже указывать не нужно - оно не имеет значения. Зачем тебе нужны лишние операторные скобки и зачем ты лишний раз обнуляешь таблицу №2?"

Эммм... вот

[Stilet]

Чет типа:

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j:Integer;
begin
if StringGrid1.ColCount>StringGrid2.ColCount then 
  StringGrid2.ColCount:=StringGrid1.ColCount;
for i:=0 to StringGrid1.RowCount-1 do
 for J:=1 to StringGrid1.ColCount-1 do begin
   StringGrid2.RowCount:=StringGrid2.Rowcount+1;
   StringGrid2.Cells[j,StringGrid2.RowCount-1]:=StringGrid1.Cells[j,i];
 end;
end;

[Asblue]

Stilet, спасибо
В общем да, работает, но только как-то криво всё добавляет:
в конец таблицы и данные первого столбца добавляются на 2 строки выше,чем во втором. Вот так:
dfcxcx.jpg