Как присвоить function of object?

unit SimpleStart;
 
interface
 
uses
    AdvCombo, Bazir;
 
type
    TfrmSimpleStart = class(TForm)
        cbSifr: TAdvComboBox;
        procedure FormCreate(Sender: TObject);
 
    TMegaList = class(TList)
        Function GetPathByName(Name: AnsiString): AnsiString;
        Function GetNameByPath(Path: AnsiString): AnsiString;
    end;
 
var
    frmSimpleStart: TfrmSimpleStart;
    PRGFiles: TMegaList;
 
implementation
 
{$R *.dfm}
 
procedure TfrmSimpleStart.FormCreate(Sender: TObject);
begin
    PRGFiles := TMegaList.Create;
    aGetPathByName := PRGFiles.GetPathByName;
    aCbSifr := cbSifr;
end;
 
function TMegaList.GetPathByName(Name: AnsiString): AnsiString;
var
    i: Integer;
begin
    GetPathByName := '';
    for i := 0 to Self.Count - 1 do
        if TPRGFile(Self.Items[i]).NameToDisplay = Name then
        begin
            GetPathByName := TPRGFile(Self.Items[i]).FullPathToPRG;
            Exit;
        end;
end;
 
end.

unit Bazir;
 
interface
 
uses AdvCombo;
 
type
    TGetPathByName = Function: AnsiString of object; // Костыль для вызова
    // процедуры GetPathByName из класса TMegaList
 
var
    frmBazir: TfrmBazir;
    aGetPathByName: TGetPathByName;
    aCbSifr: TAdvComboBox; // Костыль для вызова
 
implementation
 
{$R *.dfm}
 
procedure TfrmBazir.FormCreate(Sender: TObject);
begin
    Label91.Caption := aGetPathByName(aCbSifr.Items[aCbSifr.ItemIndex]);
end;
 
end.

type
    TGetPathByName = Function(Name: AnsiString): AnsiString of object; // Костыль для вызова