[mxkrzh]

При выполненииэтого кода выдаёт ошибку not enough actual parameters на строки с Razdelenie; и Dobavlenie;

Код:

procedure Razdelenie(Edit1: TEdit; StringGrid1: TStringGrid);
var
  z, i, j, x: integer;
  s: string;
begin
  x := 0;
  for z := 1 to length(s) do
    if s[z] = ',' then
    begin
      StringGrid1.Cells[i, j + x] := Edit1.Text;
      Edit1.Text := '';
      x := x + 1;
      Razdelenie;
      Dobavlenie;
    end
    else
    begin
      Edit1.Text := Edit1.Text + s[z];
    end;
  StringGrid1.Cells[i, j + x] := Edit1.Text;
end;

Слишком начинающий, чтобы понять, почему выдаёт эту ошибку