[alonso.esparza]

Jaja Es cierto, perdon, me distraje, este codigo lo uso para cargar las imagenes y a un 'Image' , que era donde me marcaba los errores, perdon, ahi va:

Código Delphi [-]
 
procedure TF_Principal.DBG_RecEnvCellClick(Column: TColumn);
var tmp: TStream;
begin
Try
With Q_Util do
  begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM Ima WHERE idMov=:idmov ORDER BY Id');
  Parameters.ParamByName('idmov').Value:=Q_RecEnv.FieldValues['Id'];
  Open;
  end;
  if (Q_Util.RecordCount = 0) then
    begin
    L_foja1.Caption:='ERR';
    L_Fojas1.caption:='OR';
    SB_Atras.Enabled:=False;
    SB_Adelante.Enabled:=False;
    //SB_Extraer.Visible:=False;
    end
  else
    if (Q_Util.RecordCount = 1) then
      begin
        L_foja1.Caption:='1';
        L_Fojas1.caption:='1';
        Im_Seerd.Picture.Graphic:=TJPEGImage.Create;
        tmp:=TStream.Create;
        tmp:=Q_Util.createblobstream(Q_Util.FieldByName('Imagen'),bmRead );
        Im_Seerd.Picture.Graphic.LoadFromStream (tmp);
        tmp.Free;

      end
    else
      begin
      L_foja1.Caption:='1';
      L_Fojas1.caption:=IntToStr(Q_Util.RecordCount);
      Im_Seerd.Picture.Graphic:=TJPEGImage.Create;
      tmp:=TStream.Create;
      tmp:=Q_Util.createblobstream(Q_Util.FieldByName('Imagen'),bmRead );
      Im_Seerd.Picture.Graphic.LoadFromStream (tmp);
      tmp.Free;
       end;
except ShowMessage('NO HA SELECCIONADO NINGUN REGISTRO') end;

end;

Una disculpa ,gracias