Копирование строк в StringGrid

[nulyjarden]

Мне нужно скопировать выделенную строку из SG1 в SG2.
Но столкнулся с проблемой, выделенная в SG1 строка вставляется в строку SG2 с таким же индексом.То есть если выделил 10 строку то в SG2 она запишется в 10 строку.Мне нужно что бы запись в SG2 шла по порядку c 1 строки и до n.
В SG1 ставлю свойство goRowSelect и пишу код:

procedure TForm2.strngrd1Click(Sender: TObject);
var
  i: Integer;
  x: Integer;
begin
  For i:= 0 to 3 do begin
  strngrd2.RowCount:= strngrd2.RowCount+1;
  strngrd2.Cells[i,x]:=  strngrd1.Cells[i,x];
  end;
end;

Размерность таблицы: 4 столбца и n строк.
Помогите пожалуйста!

[GetMax]

Пробуй так

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  X:=ARow;
  CanSelect:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  i:Byte;
  ipust:Integer;
begin
  ipust:=-1;
  With StringGrid2 do
  Begin
    For i:=0 to RowCount-1 do
    If Cells[1,i] = '' then
    Begin
      ipust:=i;
      Break
    End;
  End;
  If ipust = -1 then
  Begin
    ShowMessage('Таблица заполнена');
    Exit
  End
  Else
  Begin
    For i:=0 to StringGrid1.ColCount-1 do
    StringGrid2.Cells[i,ipust]:=StringGrid1.Cells[i,x]
  End;
end;

[nulyjarden]

Сообщение от GetMax

Пробуй так

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  X:=ARow;
  CanSelect:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  i:Byte;
  ipust:Integer;
begin
  ipust:=-1;
  With StringGrid2 do
  Begin
    For i:=0 to RowCount-1 do
    If Cells[1,i] = '' then
    Begin
      ipust:=i;
      Break
    End;
  End;
  If ipust = -1 then
  Begin
    ShowMessage('Таблица заполнена');
    Exit
  End
  Else
  Begin
    For i:=0 to StringGrid1.ColCount-1 do
    StringGrid2.Cells[i,ipust]:=StringGrid1.Cells[i,x]
  End;
end;

Так почему то не заносится ничего, может я напортачил?

[GetMax]

Так почему то не заносится ничего, может я напортачил?

Куда не заносится? Если первый массив не заполняется, то здесь нет кода на его заполнение.(оставил вам сделать это самостоятельно). Если второй массив не заполняется - показывайте код

[nulyjarden]

Сообщение от GetMax

Куда не заносится? Если первый массив не заполняется, то здесь нет кода на его заполнение.(оставил вам сделать это самостоятельно). Если второй массив не заполняется - показывайте код

Первый массив заполнен, просто в вашем коде небольшая ошибка( я Вас не сужу, может быть я не правильно объяснил суть задачи).Но в целом код- то что нужно.Под себя все переделал.
Спасибо огромное за помощь!