[tiberianss]

Поправил процедуру, как вы говорили)))
Смысл от этого не поменялся.
implementation

{$R *.dfm}

Код:

procedure TForm1.Button1Click(Sender: TObject);

begin
vGrids(1,'jy~~~~~34~',StringGrid1);
end;

procedure vGrids(j: integer; str: string; a:TStringGrid);
var i, si :integer;  st:string;
begin
si:=0;
for i:=1 to Length(str)+1 do
  begin
    if (str[i]='~') or (i=Length(str)+1) then
       begin
       if j=0 then a.ColCount:=  a.ColCount+1;
       a.Cells[si,0]:=st;
       st:='';
       si:=si+1;
       end
    else
   st:=st+str[i];
  end;
  end;
end.

Выдаеться ошибка:
[Error] Unit1.pas(36): Too many actual parameters(((((