insertar jpgs o cambiar formato de imagenes

[JoseQ]

despues de leer por aqui que era posible insertar jpgs en tablas paradox e estado intentado averiguar la forma de hacerlo a traves de un blobstream,pero el programa falla al salvar el jpg en el stream,produciendo una violacion de memoria, tengo el siguiente codigo para insertar las imagenes

Código Delphi [-]
procedure insertartabla;
var indice:integer;
    img:tpicture;
    arx:string;
    str : tblobstream;
begin
indice:=0;
form1.dbimage1.Picture.RegisterFileFormat('jpg','JPG',TJPeGimage);
form1.Table1.Open;
repeat
arx:=lista.Strings[indice];
img:=tpicture.Create;
img.RegisterFileFormat('jpg','JPG',TJPeGimage);
img.LoadFromFile(arx);
form1.Table1.Insert;
form1.Table1linea.AsInteger:=indice;
Str := Tblobstream.Create(form1.Table1Imagen,bmwrite);
tjpegimage(img).savetostream(str);
form1.Table1.post;
indice:=indice+1;
until indice=lista.Count;
lista.Free;
img.Free;
str.free;
end;