procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin key:=#0; StringGrid1.RowCount:=StringGrid1.RowCount+1; end; end;