Ну, во-первых, Вы из процедуры
Razdelenie вызываете эту же процедуру? Совершенно некорректно. Оформите её отдельной процедурой, а вызов делайте из другой процедуры (из обработчика какого-нибудь события).
Во-вторых, ошибка "Недостаточно параметров" выскакивает потому, что для процедуры
Razdelenie Вами определены два параметра:
Код:
procedure Razdelenie(Edit1: TEdit; StringGrid1: TStringGrid);
Но Вы эти параметры при вызове процедуры не указываете (пишете просто "Razdelenie;", строка 13 кода).
Вызывая какую-либо процедуру или функцию, Вы обязаны указать все параметры, объявленные для этой функции, иначе код не будет скомпилирован.