[pesi]

не помешает сделать проверку

Код:

if StringGrid1.RowCount-1<one then
ShowMessage('Увы, но строк для заполнения больше нет!')
else
begin
StringGrid1.Cells[0, One] := Edit1.Text;
Inc(One);
end;