Hola.
La verdad es que no sé si comprendí realmente que es lo que buscas...
Creo haber entendido que tenes un query origen (donde está la imágen) y otro de destino donde se copiará ("mi tabla").
Entonces, si no inferí mal:
Código Delphi
[-]
...
var
Stream : TStream;
begin
Stream := TMemoryStream.Create;
try
TBlobField( qryOrigen.FieldByName( 'IMAGEN' ) ).SaveToStream( Stream );
Stream.Seek( soFromBeginning, 0 );
qryDestino.Close;
qryDestino.SQL.Text := 'UPDATE REL_CONCEPTO_SUMINISTRO SET IMAGEN = :IMAGE WHERE ID = :ID';
qryDestino.ParamByName( 'ID' ).AsInteger := numero_id ; qryDestino.ParamByName( 'IMAGEN' ).LoadFromStream( Stream, ftBlob );
qryDestino.ExecSQL;
finally
Stream.Free;
end;
...
Saludos