afbeelding in database zetten

Ik moet een afbeelding in een database zetten. (ik heb een msSQL7 database met een image veld). Dit lukt nu met de volgende code in delphi 5: 

qryAfbeeldingsdata.open; 
qryAfbeeldingsdata.edit; 
BlobField := qryAfbeeldingsdata.FieldByName('data'); 
BS := qryAfbeeldingsdata.CreateBlobStream(BlobField,bmWrite); 
imgPreview.Picture.graphic.SavetoStream(BS); 
qryAfbeeldingsdata.ApplyUpdates; 
qryAfbeeldingsdata.close; 

--- 

Bij kleine afbeeldingen gaat dit goed (max is ongeveer 256x256pixels). Bij grotere afbeeldinge (bijv. 640x480) word het onderste deel niet goed bewaart in de database. Dit is dan vaak een zwarte of blauwe balk. 
Nu is mijn vraag op welke manier kan ik ook grotere bestanden naar mijn database schrijven?