Type
TSetFileNamesCallBack=procedure(MsgCallback: Pointer); stdcall;

...
type
MyCompo=class(TComponent)
private

SetFileNamesCallBack:TSetFileNamesCallBack;

function DllSagtWas;

...

constructor MyCompo.Create(AOwner: TComponent);
begin
FHandle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'meinedll'));
...
@SetFileNamesCallBack:= GetProcAddress(FHandle, 'SetFileNamesCallBack');
...

// Versuch 1

SetFileNamesCallBack(@DllSagtWas);
//geht nicht, da Variable fehlt??? Self?? (auch wenn ich die function DllSagtWas:boolean; stdcall;) so definiere.
 

// Versuch 2
SetFileNamesCallBack(TMyCompo.DllSagtWas);

// hier bekomme ich ein Callback, aber der läuft nicht richtig. Irgendwie ist bei meiner Komponente dann vieles Nil
// wenn ich z.b. aus MyCompo.DllSagtWas ein Event starten will

end;



function MyCompo.DllSagtWas:boolean;
begin
// gib laut
end;

var
gFileNamesCallBack: function:boolean = nil ;

...

procedure SetFileNamesCallBack(MsgCallback: Pointer); stdcall;
begin
     @gFileNamesCallBack:=MsgCallback;
end;


... irgendwo im code
if assigned(gFileNamesCallBack) then
   begin
       // gib Laut
       gFileNamesCallBack;
   end;

exports

SetFileNamesCallBack;