Blob direkt in File schreiben

[day]

Hallo

Wie kann ich ein BLOB datenfeld direkt in eine Datei schreiben? Alternativ lösung wäre das ganze zuerst in einen OLEContainer zu laden und von dort aus zu speichern.

Code:

procedure TForm1.Button5Click(Sender: TObject);
var S: TStream;
begin

  S:=TMemoryStream.create;
  try
    S:=Table1.CreateBlobStream(Table1.FieldByName('TEXTMODULE'), bmRead);
    OleContainer1.LoadFromStream(S);
  finally
    S.Free
  end;
end;