Прежде чем вызывать GetProcAddress, нужно загрузить библиотеку LoadLibrary('имя.dll'), а в GetProcAddress передавать hendle, полученный от LoadLibrary. Примерно так:
Код:
type
TFuncPar = function (S: PChar): integer; stdcall;
...
procedure TForm1.Button1Click(Sender: TObject);
var
ip: PChar;
hLib:THandle;
status: integer;
begin
hLib := LoadLibrary( 'имя.dll' );
Func := GetProcAddress( hLib, 'cas_Func' );
if @Func <> nil then
begin
ip := '192.168.0.101';
status := Func( ip );
ShowMessage( IntToStr( status ) );
end;
FreeLibrary( hLib );
end;
Посмотри пример от
Aristarh Dark, там все это показао.