Problema con este truco jpg a image

[ascrnet]

Empezado por ascrnet

.... entonces como lo cargo en el image1

me respondo solo por si alguien tiene el mismo problema aqui esta la soluccion despues de unas buenas horas de busquedas y pruebas.

var
  jpgFoto: TJPEGImage;
  msFoto: TMemoryStream;
begin
  msFoto:=TMemoryStream.Create;

  IBQuery1.Close;
  IBQuery1.Sql.Clear;
  IBQuery1.Sql.Add('Select Foto FROM Tabela Where Codigo = 1');
  IBQuery1.Open;

  TGraphicField(IBQuery1.FieldByName('Foto')).SaveToStream(msFoto);

  IBQuery1.Close;

  msFoto.Position:=0;
  jpgFoto:=TJPEGImage.Create;
  jpgFoto.LoadFromStream(msFoto);
  imgFoto.Picture.Graphic := jpgFoto;
  msFoto.Free;

saludos