Inserindo Imagens em tabela no Paradox

PARA RODAR VC TEM QUE TER UM CAMPO NA TABELA TYPE= G, UM COMPONENTE DBIMAGE COMPONENTE OPENPICTUREDIALOG, UM COMPONENTE TABLE, UM COMPONENTE BITBTNBUTTON/OU SP E COLOCAR O CODIGO NO SpeedButton1Click

DECLARE EM USES -> JPEG ,Clipbrd

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Jpeg:TJPEGImage;
begin
OpenPictureDialog1.Execute;
if OpenPictureDialog1.FileName > '' then
begin
Jpeg:= TJPEGIMAGe.Create;
Jpeg.LoadFromFile(OpenPictureDialog1.FileName);
Clipboard.Assign(Jpeg);
dbimage1.Picture.Assign(Jpeg);
dbimage1.PasteFromClipboard;
Jpeg.free;
end else
abort;
end;