[Bargest]

Страдалецъ прав. Сделайте процедуру методом формы.

Код:

type
   TForm1 = class(TForm)
   ...
   procedure Draw_Shape;
   ...
 end;
...
procedure TForm1.Draw_Shape;
begin
 // код процедуры
end;