[Xamil]

Блин, странно.. Вот что у меня предшествует процедуре-

1. unit name;
2. interface
3. uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs;
4. type
5. TForm1 = class(TForm)
6. procedure FormPaint(Sender:TObject);
7. end;
8. var
9. Form1: TForm1;
10. implementation
11. {$R *.dfm}
12. та процедура, что выше
13. end.