Как в параметре передать вместо процедуры метод класса?

[areame]

Код из TChromium

  TCefStringVisitorProc  = procedure(const str: ustring);
 
[CODE=pas]constructor TCefFastStringVisitor.Create(const callback: TCefStringVisitorProc);
begin
  inherited Create;
 
  FVisit := callback;
end;

Как мне в качестве callback при вызове конструктора передать не процедуру, а метод класса?

==========
Вот есть же способ, передать вместо метода класса обычную процедуру. А как в данном случае сделать наоборот?

[Fr0sT]

объяви метод class static