Выполнение процедуры

[Xo66um]

Всем привет.

Собственно, есть процедура (своя)...

  TForm1 = class(TForm)
  ...
  private
    procedure pFree(Sender: TObject);
  ...

procedure TForm1.pFree(Sender: TObject);
...

Используют ее динамически созданные компоненты, но если ее вызвать каким-нибудь компонентом (не динамическим, т.е. взятым с палитры компонентов), то компилятор ругается:

Not enough actual parameters

Непонятно почему, и как это исправить/обойти?

[ReportCube]

Пример вызова в студию

[Xo66um]

 Form1.pFree;

К слову, если создать процедуру, например:

procedure pFree(Sender: TObject; i: integer);

И назначить ее обработчику динамически созданного компонента:

...OnClick := Form1.pFree(i);

То Delphi опять начнет ругаться. Я так понимаю, в качестве первого параметра (Sender) нужно передать id этого компонента? Или я ничего не понимаю?

[ReportCube]

Form1.pFree(nil)

[Xo66um]

ReportCube, спасибо большое

[northener]

А зачем вообще нужно было вводить процедуру с таким параметром, если он нафиг не нужен?