Über DLL eine Funktion des aufrufenden Programmes ausführen

[cytrinox]

WIe genau muss ich die Funktion im Programm selbst deklarieren? so?

function machwas() : Integer; export;


try
FarProc := GetProcAddress(getModuleHandle(nil), 'machwas');
//if Assigned(FarProc) then
FarProc();
except
ShowMessage('Funktion der DLL konnte nicht ausgeführt werden.');
end;


Funktioniert in der DLL leider nicht, der bringt nur die Fehlermeldung.