procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
begin
  if ( ARow = StringGrid1.RowCount-1 ) then
    begin
     Memo1.lines.add('Babooshka');
 StringGrid1.RowCount:=StringGrid1.RowCount+1;
    end
  else
    begin
      if StringGrid1.RowCount > 8 then
        begin
          StringGrid1.RowCount:=StringGrid1.RowCount-1;
        end;
    end;

end;