StringGrid - добавление строк. (Delphi)

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:=0 to StringGrid1.ColCount-1 do begin
StringGrid2.RowCount:=StringGrid2.Rowcount+1;
StringGrid2.Cells[i,StringGrid2.RowCount-1]:=StringGrid1.Cells[i,j];
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j:Integer;
begin
if StringGrid1.ColCount>StringGrid2.ColCount then
   StringGrid2.ColCount:=StringGrid1.ColCount; //А у вас меняется количество колонок 
                              //в первом гриде? 
                              //Может стоит тогда перенести этот код
                              //в FormCreate? Чтобы каждый раз при нажатии кнопки
                              // не сравнивать и не изменять кол-во колонок
for i:=0 to StringGrid1.RowCount-1 do  // строка i:=0 - это шапка серая с пустыми полями
                            // она и даёт одну пустую строку во втором гриде
                            // используйте i:=1
                            // А если "полезная" строка всего одна, тогда и цикл не нужен
  for j:=0 to StringGrid1.ColCount-1 do
    begin
    StringGrid2.RowCount:=StringGrid2.Rowcount+1; // вы при переходе к следующей колонке
                                                      // добовляете строку во второй грид
    StringGrid2.Cells[i,StringGrid2.RowCount-1]:=StringGrid1.Cells[i,j];
                 // первая цыфра - номер колонки, вторая строки, а у вас наоборот
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid2.ColCount:=StringGrid1.ColCount; // Уравниваем количество колонок 
                             // если оно не меняется, тов дезайнере выставите его и не меняйте программно
end;
procedure TForm1.Button1Click(Sender: TObject);
var
 i,j:Integer;
begin
for i:=1 to StringGrid1.RowCount-1 do // пропускаем строку с индексом 0 - это шапка
  begin
  StringGrid2.RowCount:=StringGrid2.Rowcount+1; // для каждой строки в Грид1 прибавляем строки в Грид2
  for j:=0 to StringGrid1.ColCount-1 do
    StringGrid2.Cells[i,StringGrid2.RowCount-1]:=StringGrid1.Cells[i,j];
  end; // конец перебора строк в первом гриде
end;

var
  Form1: TForm1;
  j:Integer;  //счетчик строк ввода
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
j:=0;  //пока ноль
StringGrid1.ColCount:=2;
StringGrid1.RowCount:=2;
StringGrid1.Cells[0,0]:='aaaaaaaa';
StringGrid1.Cells[1,0]:='bbbbbbbb';
StringGrid2.ColCount:=2;
StringGrid2.RowCount:=2;
StringGrid2.Cells[0,0]:='aaaaaaaa';
StringGrid2.Cells[1,0]:='bbbbbbbb';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,k,p:Integer;
begin
p:=0;
for i:=0 to StringGrid1.ColCount-1 do
if StringGrid1.Cells[i,1]='' then p:=1;
if p=1 then Showmessage('В таблицу 1 не введены все данные!')
else
 begin
  StringGrid2.RowCount:=StringGrid2.RowCount+1;
  j:=j+1;
  for k:=0 to StringGrid1.ColCount-1 do
  StringGrid2.Cells[k,j]:=StringGrid1.Cells[k,1];
 end;
for i:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[i,1]:='';
end;
end.