TMemoryStream zu CreateFile ummodeln.. -.-

[turboPASCAL]

Hi,

ich mal wieder...

Ich möchte mir eine Art MemoryStream oder besser gesagt einen Dateiöffner basteln.
So klappts anscheind nicht, da die Daten nur Müll enthalten:

Delphi-Quellcode:

var
  mem: pointer = nil;

function(FName: PChar): bool;
var
  hFile: THandle;
  Size: Cardinal;
  dummy: Cardinal;
begin
  Result := False;

  hFile := CreateFileA(FName, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); 
  try
  if hFile <> 0 then
  begin
    Size := GetFileSize(hFile, nil);
    GetMem(mem, Size);
    ReadFile(hFile, mem, size, dummy, nil);
  end;
  finally
    CloseHandle(hFile);
  end;

  result := (hFile <> 0) and (mem <> nil);
end;

// function MemDone ...
// FreeMem(mem);
// mem := nil

Nu ist die Frage, hab ich es richtig so ?