Problem mit FileRead

[Totti]

Moin,
leider scheint er bei flgendem Code absolut nichts bei FIleRead einzulesen

Delphi-Quellcode:

const
  SzaSize=488960;
  fsSize=80896;

{...}

function extractExe: boolean;
var
  aHdl,bHdl,t: Integer;
  SzaBuf: Array[1..SzaSize] of byte;
  fsBuf: Array[1..fsSize] of byte;

  aHdl:=FileOpen(Application.ExeName, fmShareDenyNone or fmOpenRead);
  bHdl:=FileCreate(FMDir+'Stadia.tex\7za.exe');
  t:=FileSeek(aHdl, SzaSize+fsSize, 2);
  t:=FileRead(aHdl, SzaBuf, SizeOf(SzaBuf));
  t:=SizeOf(SzaBuf);
  t:=FileWrite(bHdl, SzaBuf, SizeOf(SzaBuf));
  FileClose(bHdl);

Irgendwelche Ideen, was falsch gelaufen sein könnte?
Kann Delphi evtl. nur einen FileStream zur zeit bedienen (wobei dann der Sinn von handles wohl in Frage gestellt wäre ) ?