Не могу сделать обмен между приложениями через CreateFileMapping. 64bit <-> 32bit

[TwiX]

32битвые общаются нормально, а вот 64 не хочет. Подключается к памяти, но выдаёт что-то ложное. Работает так:

var
  Form2: TForm2;
  map: NativeUInt;
  mappedExt: ^Extended;

function CreateFileMap(name: string; var mapView: Pointer; AccessMode: Cardinal; ViewMode: Cardinal): NativeUInt;
begin
  Result:=CreateFileMapping(INVALID_HANDLE_VALUE, nil, AccessMode, 0, 8, PWideChar(name));
  if Result=0 then
    exit;
  mapView:=MapViewOfFile(Result, ViewMode, 0, 0, 0);
  if mapView=nil then
  begin
    Result:=0;
    Exit;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  if (mappedExt^>=0) and (mappedext^<=1) then

  Caption:=IntToStr(Round(100*(mappedExt^)));
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
    map:=CreateFileMap('dtx_Analyzer', Pointer(mappedExt), PAGE_READWRITE, FILE_MAP_ALL_ACCESS);

[TwiX]

С интом всё прокатило.. В чём может быть проблема?

[waleri]

В размере данных

[TwiX]

Так всё-таки там в байтах размер...=) Долго читал msdn, но мало что понял про размер (там не втерминах битов и байт расписано).
Спасибо!