PDF-Datei (BLOB) in eine MySql-Tabelle speichern und lesen (Delphi 2010)

[Freiwilderer]

hi,
ich weiß, dass der Beitrag schon etwas älter ist, aber vielleicht bringts ja doch was nochmal nachzufragen.
und zwar. Ich versuche auch gerade eine PDF Aus einem VarBinary(Max) zu lesen. Habe es genau so gemacht, wie unten beschrieben, aber wenn ich die PDF dann öffnen will, sagt der Foxit Reader: format error: not a PDF or corrupted

Delphi-Quellcode:

procedure TForm.ViewPDF;
var
   ts: TStream;
   ms: TMemoryStream;
begin
   ts := TStream.Create;
   ts := dm.qQuery.CreateBlobStream(dm.qQuery.Fieldbyname('Datei'),bmRead);
   ms := TMemoryStream.Create;
   ms.LoadFromStream(ts);
   ms.SaveToFile('C:\test3.pdf');
end

was mach ich hier falsch?