Помогите найти ошибку в простом варианте DLL.

[vl1639]

Помогите найти ошибку в простом варианте DLL. Для уверенности я проверяю совместную работу сначала как основную программу и функцию в одном файле

program test1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Type
 pdouble = ^double;
Var 
 ChangeMass :array [1..10] of double;

Function GetSimpleChange( nn :integer; a,b :double ):Pchar; stdcall;
Var
 pdou : pdouble;
 pcha : pChar;
 ii :integer;
begin
  if nn=1 then for ii:=1 to 10 do ChangeMass[ii] := 10*ii + a ;
  if nn>1 then for ii:=1 to 10 do ChangeMass[ii] := 10*ii + b;
  pdou := @ChangeMass[1];
  pcha := pChar(pdou);
  Result := pcha;
end;

var
 ff :textfile;
 pch :pChar;
 buff :array [1..10] of double;
 ii, num :integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 AssignFile(ff,'vih.tab'); ReWrite(ff);
 for num:=1 to 2 do begin
           pch := GetSimpleChange(num, 1.0, 5.0);
           move(pch^,buff,sizeof(double)*10);
           for ii:=1 to 5 do Write(ff,buff[ii]:10:2);  Writeln(ff);
  end;
  CloseFile(ff);
end.

Здесь все нормально и печатается, как ожидалось
11.00 21.00 31.00 41.00 51.00
15.00 25.00 35.00 45.00 55.00

Теперь разбиваю задачу на основную прогу и DLL
==Текст DLL

library mydll;
uses
  SysUtils, Classes;
{$R *.res}
Type
 pdouble = ^double;
Var
 ChangeMass :array [1..10] of double;

Function GetSimpleChange( nn :integer; a,b :double ):Pchar; stdcall;
Var
 pdou : pdouble;
 pcha : pChar;
 ii :integer;
begin
  if nn=1 then for ii:=1 to 10 do ChangeMass[ii] := 10*ii + a ;
  if nn>1 then for ii:=1 to 10 do ChangeMass[ii] := 10*ii + b;
  pdou := @ChangeMass[1];
  pcha := pChar(pdou);
  Result := pcha;
end;

exports GetSimpleChange;
begin
end.

==Текст вызывающей программы

program test1;
{$APPTYPE CONSOLE}
uses
  Windows, Dialogs, SysUtils;
var
  GetSimpleChange:function( nn :integer; a,b :double ):PChar;
  LibHandle :THandle;

var
 ff :textfile;
 pch :pChar;
 buff :array [1..10] of double;
 ii, num :integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 for ii:=1 to 10 do buff[ii] :=0.0;
 AssignFile(ff,'vih.tab'); ReWrite(ff);

 @GetSimpleChange := nil;
 LibHandle := LoadLibrary('mydll.dll');
  if ( LibHandle < 32 ) then ShowMessage('Error Load DLL')
  else  begin
   @GetSimpleChange := GetProcAddress(LibHandle,'GetSimpleChange');
   if @GetSimpleChange <> nil then
     begin
       for num:=1 to 2 do begin
           pch := GetSimpleChange(num, 1.0, 5.0);
           move(pch^,buff,sizeof(double)*10);
           for ii:=1 to 5 do Write(ff,buff[ii]:10:2);  Writeln(ff);
       end;
     end;
  end;

  FreeLibrary(LibHandle);
  CloseFile(ff);
end.

Использую загрузку по образцу из Инета, а все остальное как в верхнем примере, а в результате
0.00 0.00 0.00 0.00 0.00
0.00 0.00 0.00 0.00 0.00
Что-то я делаю не так - подскажите!!!

[vl1639]

Мне подсказали и теперь вижу - не указана конвенция в вызывающей функции. Вопрос закрыт.