[Freeman]

Почти всё есть, чуть-чуть добавить:

Код:

type
  PSharedMem = ^TSharedMem;

var
  SpeedFan: PSharedMem;
begin
  HMapping := OpenFileMapping(FILE_MAP_READ, False, 'SFSharedMemory_ALM');
  SpeedFan := MapViewOfFile(HMapping, FILE_MAP_READ, 0, 0, 0);
  ShowMessage(IntToStr(SpeedFan.Volts[0]));
end;