1:
2:
3:
4:

procedure TForm1.SG1Click(Sender: TObject);
begin
  SG2.Cells[SG1.Col, SG1.Row] := SG1.Cells[SG1.Col, SG1.Row];
end;					

1:
2:
3:
4:
5:

procedure TForm1.SG1Click(Sender: TObject);
begin
  if SG1.Col = SG1.FixedCols then
    SG2.Cells[SG1.Col, SG1.Row] := SG1.Cells[SG1.Col, SG1.Row];
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 IF StringGrid1.Cells[aCol,aRow] <> '' then
    str1 := StringGrid1.Cells[ACol,ARow]
 else begin
   StringGrid1.Cells[aCol,aRow] := str1;
   str1 := '';
 end;
end;