[Страдалецъ]

Как и предполагалось, вы упорно вызываете процедуры без параметров. Попробуйте все-же подставить параметры в 36 и 37 строках, а вдруг поможет

Код:

Oformlenie(Edit1,StringGrid1);
Dobavlenie(Edit1,StringGrid1);