[poli-smen]

Ага. Вот ещё здесь ошибка:

Сообщение от tiberianss

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
begin
vGrids(0,'12~12~3~456~23);
end;

Вызывать нужно (видимо) так:

Код:

  vGrids(0,'12~12~3~456~23', StringGrid1);