Blob direkt in File schreiben

[Sharky]

Dann wirst Du mit 2 Streams arbeiten müssen:
Ungetestet:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  S: TStream;
  S2 : TMemoryStream;

begin
  S := TStream.create;
  S2 := TMemoryStream.Create;
  try
    S := Table1.CreateBlobStream(Table1.FieldByName('TEXTMODULE'), bmRead);
    S.Position := 0;
    S2.CopyFrom(S,0);
    S2.SaveToFile();
  finally
    S.Free;
    S2.Free;
  end;
end;