Hola.
Pendón por la tardanza.
Al final no supe como hacerlo (novato que es uno).
Así que basándome en
este hílo
pude solucionarlo.
Aquí dejo el código:
Código Delphi
[-]var
Blob: TBlobField;
jpg : TJpegImage;
begin
Busca_Pais := TBusca_Pais.Create(Self);
try
cState := 'BUSCAR';
Busca_Pais.ShowModal;
finally
FreeAndNil(Busca_Pais);
if cCodigo <> '' then DBPais.Text := cCodigo;
DM.QVarios.Close;
DM.QVarios.SQL.Text := 'Select NOMBRE,IMAGEN From PAISES Where CODIGO = '+
QuotedStr(cCodigo);
DM.QVarios.Open;
Blob := DM.QVarios.FieldByName('IMAGEN') as TBlobField;
jpg := TJpegImage.Create;
jpg.Assign(Blob);
DBPaisBandera.Picture.Graphic := jpg;
LabelPais.Caption := DM.QVarios.FieldByName('NOMBRE').AsString;
cCodigo := '';
cState := '';
FreeAndNil(jpg);
end;
Un saludo y gracias.