Galeria de Imágenes en Delphi 7 (Paradox)

[[mightydragonlor]]

Lo siento, pero es que no me deja editar el comentario, pero aquí va el código.
Es necesario convertir la imagen a un Bitmap y para eso es la función ToBMP
dmConexxion es un DataModule
TblContacto es un TTable

Código Delphi [-]
procedure TfrmAgenda.btnGuardarClick(Sender: TObject);
begin
  dmConexion.TblContacto.AppendRecord([NIL,NICK.Text,NOMBRES.Text,APELLIDOS.Text,TEL_PER.Text
    ,TEL_LAB.Text,TEL_MOV.Text,DIRECCION.Text,CIUDAD.Text
    ,MAIL_PER.Text,MAIL_LAB.Text,MAIL_ADD.Text
    ,FECHA_NAC.Date,ToBMP(ImgFoto.Picture.Graphic),NOTAS.Lines]);
end;

function TfrmAgenda.ToBMP(g: TGraphic): TBitMap;
begin
  try
    Result:=TBitmap.Create;
    Result.Width:= g.Width;
    Result.Height:= g.Height;
    Result.Palette:=g.palette;
    Result.PixelFormat:=pf15bit;
    Result.Canvas.Draw(0,0,g);
  except
    Result:=nil;
  end;
end;

Listo, es muy sencillo, la verdad es que me gustaria guardar la imagen como JPG, ya que como BMP pesa mucho, pero tengo problemas cargando la imagen desde la base de datos si está guardada en JPG, algo que no pasa si la guardo como BMP.