With myquery DO
    Begin
      Close;
      DeleteVariables;
      SQL.Clear;
      SQL.Add ('Select mypic from mytable ');
      SQL.Add ('Where ID = :ID ');
      DeclareVariable('ID', otInteger);
      SetVariable('ID',myID);
      try
        Execute;
        If RowCount = 0 THEN Exit;
        LOB := LOBField('mypic');
        if not LOB.IsNull
          then
            begin

               ???

              Stream := TMemoryStream.Create;
              Stream.Position := 0;
              Pic.Graphic.LoadFromStream(Stream);
            end;
        Close;
      except
         on e: exception do
           begin
            showMessage(e.Message);
            Close;
           end;
      end;
   end;