Попробуй, может поможет (JPG).

private
Result : integer;
Ms : TMemoryStream;
Ss : TStringStream;
Pict : TPicture;
Jpg : TJpegImage;

-------- загрузка картинки в поток -> базу ------------------
procedure TFm_spMain.ALoadExecute(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
if Query1.State = dsBrowse then
Query1.Edit;
Query1FILENAME.Value := OpenPictureDialog1.FileName;
Pict := TPicture.Create;
try
Pict.LoadFromFile(OpenPictureDialog1.FileName);
Jpg := TJpegImage.Create;
Ss := TStringStream.Create('');
if Pict.Graphic is TJPegImage then
begin
Jpg.LoadFromFile(OpenPictureDialog1.FileName);
Jpg.SaveToStream(Ss);
Query1JPEG.AsString := Ss.DataString;
end
else
try
// if Pict.Graphic is TBitmap then
// begin
Jpg.Assign(Pict.Graphic);
Jpg.CompressionQuality := 70;
Jpg.PixelFormat:= jf24Bit;
Jpg.JPEGNeeded;
Jpg.SaveToStream(Ss);
Query1JPEG.AsString := Ss.DataString;
// end;
except
Result := MessageBox(Handle,'Данный формат не поддерживается!',PChar(Application.Title),16);
Query1.Cancel;
Exit;
end;
except
Result := MessageBox(Handle,'Данный формат не поддерживается!!',PChar(Application.Title),16);
Query1.Cancel;
Exit;
end;
// Ss.Free;
// Jpg.Free;
Query1.Post;
end;
end;

-------- выгрузка картинки из базы ------------------
procedure TFm_spMain.ASaveExecute(Sender: TObject);
begin
if SavePictureDialog1.Execute then
begin
Ms := TMemoryStream.Create;
Query1JPEG.SaveToStream(Ms);
Ms.Position := 0;
Jpg := TJpegImage.Create;
Jpg.LoadFromStream(Ms);
Jpg.SaveToFile(SavePictureDialog1.FileName);
Ms.Free;
Jpg.Free;
end;
end;
------------ просмотр картинки --------------------------------
procedure TFm_spMain.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Ss:= TStringStream.Create('');
Jpg:= TJPEGImage.Create;
try
if (Field = nil) and (not Query1JPEG.IsNull) then
begin
Ss.WriteString(Query1JPEG.AsString);
Ss.Position:= 0;
Jpg.LoadFromStream(ss);
Image1.Picture.Assign(Jpg);
end;
finally
Ss.Free;
Jpg.Free;
end;
end;