Trabalhando com jpg em paradox

{Trabalhando com JPEG em paradox...

Declare uma procedure GRAVA assim:}

Procedure Grava(Tabela:TTable; Campo:TBlobField;Foto:TImage; Dialog:TOpenPictureDialog);
em uses digite JPG
Apos {$R *.DFM} digite

Procedure TFrmCadProdutos.Grava(Tabela:TTable; Campo:TBlobField;Foto:TImage; Dialog:TOpenPictureDialog);
var BS:TBlobStream;
MinhaImagem:TJPEGImage;
Begin
Dialog.InitialDir := 'c:JPGFotos_Jpeg';//pasta onde estão as fotos
Dialog.Execute;//componente opendialog
if Dialog.FileName <> '' Then
Begin
if not (Tabela.State in [dsEdit, dsInsert]) Then
Tabela.Edit;
BS := TBlobStream.Create((Campo as TBlobField), BMWRITE);
MinhaImagem := TJPEGImage.Create;
MinhaImagem.LoadFromFile(Dialog.FileName);
MinhaImagem.SaveToStream(BS);
Foto.Picture.Assign(MinhaImagem);
BS.Free;
MinhaImagem.Free;
Tabela.Post;
DBISaveChanges(Tabela.Handle);
End;
End;

//no evento onclick de um botão digite:
procedure TFrmCadProdutos.btImagemClick(Sender: TObject);
begin
Grava(tbProdutos,tbProdutosFoto,Image1,OpenDialog);
if not(tbProdutos.State in[dsEdit,dsInsert])then
begin
tbProdutos.edit;
tbProdutosCad.Value:='S';
tbProdutos.post;
end
else
begin
tbProdutosCad.Value:='S';
tbProdutos.post;
end;
end;

//meu e-mail: medeiros@pontenet.com.br