[ViNT]

Надо писать так:

procedure proc1; forward;
 procedure proc2;
begin
proc1;
end;

procedure proc1;
begin
...
end;