Delphi - imagen de tabla en paradox a imagen normal.

Como puedo hacer para mostrar una imagen que esta grabada en una tabla paradox para mostrarla en el objeto imagen de la paleta additional.

Muchas geracias.

Prueba esto
function TFormPrincipal.CargaFoto(Foto:WideString;guardar:Boolean=false):Boolean;
var
blob:TStream;
QueryFotos:TZQuery;
begin
QueryFotos:=TZQuery.Create(application);
QueryFotos.Connection:=ZConnection1;
QueryFotos.Close;
QueryFotos.SQL.Clear;
//Filtro de entre todas la foto que quiero mostrar
QueryFotos.SQL.Add('select * from fotos where ref_personal=:ref;');
QueryFotos.ParamByName('ref').AsString:=foto;
QueryFotos.Open;

if QueryFotos.IsEmpty then
begin
Result:=False;
QueryFotos.Close;
QueryFotos.Free;
QueryFotos:=nil;
exit;
end;

blob := QueryFotos.CreateBlobStream(QueryFotos.FieldByName('foto'), bmRead);
try
blob.Seek(0, soFromBeginning);
//Imagen=TJVThumbImage
Imagen.Picture:=nil;
Imagen.LoadFromStream(blob,grJPG);//El JvThumbInage requiere dos parametros
if guardar then
begin
with TFileStream.Create(Foto+'.jpg', fmCreate) do
try
CopyFrom(blob, blob.Size)
finally
Free
end;
end;
finally
begin
blob.Free;
QueryFotos.Close;
QueryFotos.Free;
QueryFotos:=nil;
end;
end;
end;
Suerte