Как сделать dll

Помогите неучу! Создаю dll, где описываю функцию:

function Probe (var MyString:PChar):Integer; stdcall
begin
Showmessage(PChar(MyString));
Probe:=1;
end;

Вызываю ее из FoxPro
получаю ошибку: Dll cause exception
Если в описании параметра функции убираю var - все нормально...
Помогите кто чем сможет..