Господа,
есть код на FoxPro вызова функции из dll
DECLARE INTEGER CheckLicense IN NEOGLITE.DLL STRING @, INTEGER @
и функция вызова
nresult = checklicense(@slicense, @nuserid)
Подскажите плиз как это все переписать под delphi?

у меня получилось
TCheckLicense = function (Value: PShortString; Key: PInteger): integer;

try
New(FValue);
New(FKey);
FValue^ := '3';
FKey^ := 0;

FDllHandle := LoadLibrary(PChar('c:\project\neoglite.dll'));
if FDllHandle <> HINSTANCE_ERROR then
begin
FCheckLicense := GetProcAddress(FDllHandle, Pchar('CheckLicense'));
FCheckLicense(@FValue,@FKey);
end;

Dispose(FValue);
Dispose(FKey);

но это все валится с ошибкой Access violation at address 10041CD7 in module 'neoglite.dll'. Read of address 00000000

да я уже понял, написал как
type
TCheckLicense = function (Value: PAnsiChar; Key: PInteger): integer;

в коде вызываю:
var
FValue: AnsiString
FKey: Integer

begin
FValue := PChar('test');
FKey := 0;

FCheckLicense(@FValue,@FKey);

и валится с ошибкой Access violation at address 10041CD7 in module 'neoglite.dll'. Read of address 00000000