Ага, а зачем здесь if? Проверим на примере: [Code] implementation ... type TMyClass = class public function First :integer; //обычный метод ...code:
function TControl.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint; begin ... if Self <> nil then WindowProc(Message); ... end;