Возникла проблема с использованием библиотеки dll.
Функциям из библиотеки в качестве одного из параметров передается функция из вызывающей программы, эту функцию вызывает библиотека после выполнения команды.
И передает в нее результат работы в структуре rtd.
На Delphi это выглядит так:

TMathFunc = procedure(const rt:RetData)stdcall;
procedure PrinterResults(const rt:RetData)stdcall;
function DisplayTextLL(hWin:HWND;fun:TMathFunc;par:LPARAM;int1:STRING):integer;stdcall ; external 'fpl.dll' name 'DisplayTextLL';

//Формат структура rtd:
type RetData = record
Count: integer ;
CmdCode: integer ;
UserData: integer ;
Status: integer ;
CmdName: PChar ;
SendStr: PChar ;
Whole: PChar ;
RetItem: array [1..20] of PChar ;
OrigStat: array [1..6] of byte ;
end;

procedure PrinterResults(const rt:RetData )stdcall;
begin
………………
………………
………………
end ;
procedure TForm1.Button1Click(Sender: TObject);
begin
DisplayTextLL(0,PrinterResults,0,’Текст……….');

end;

Как такое сделать на FoxPro

Напрфмую - никак

Жаль. Придется что-то придумывать, или писать на чем-то другом.
Спасибо что подсказали куда копать.