StreamWrite erzeugt nur 0 Byte-File

[shmia]

WriteBuffer hat den Vorteil, dass man sich selbst um nichts kümmern muss.
WriteBuffer erzeugt eine Exception, wenn das Zielmedium die Daten nicht aufnehmen kann (z.B. Platte voll oder Schreibfehler wg. defektem Sektor)

Delphi-Quellcode:

procedure TStream.WriteBuffer(const Buffer; Count: Longint);
begin
  // wenn Count=0 ist, passiert gar nichts
  // andernfalls werden Count Bytes geschrieben
  if (Count <> 0) and (Write(Buffer, Count) <> Count) then
    // falls beim Schreiben ein Fehler aufgetreten ist, wird eine Exception erzeugt
    raise EWriteError.CreateRes(@SWriteError);
end;

Deshalb empfehle ich WriteBuffer anstelle von Write zu verwenden.