[ronimaxh]

Gracias amigos por la ayuda me da un error:

Código Delphi [-]
 [Error] Consulta_Padron.pas(164): Missing operator or semicolon

Este es el código:

Código Delphi [-]
procedure TfrmConPadron.Button1Click(Sender: TObject);
var
  jpg:TJPEGImage;
  stream:TMemoryStream;
begin
  stream:=TMemoryStream.Create;
  jpg:=TJPEGImage.Create;
  frmConPadron.Image1.Picture:=nil;
  try
   // en esta linea es que me da el error
   frmdata.blofield(frmdata.st_foto.fieldbyname('imagen')).SaveToStream(stream);
   stream.Seek(0, soFromBeginning);
   jpg.LoadFromStream(stream);
   frmConPadron.Image1.Picture.Assign(jpg);
  finally
   stream.Free;
   jpg.Free;
  end;
end;