SQL Command:
select  o.object_name,
        s.increment$,
        s.minvalue,
        s.maxvalue
from    sys.all_objects o,
        sys.seq$        s
where   s.obj# = o.object_id
and     o.owner = :p_owner
and     o.object_name  = :p_sequence_name    procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.ParamByName('p_owner').AsString := Edit1.Text;
  Query1.ParamByName('p_sequence_name').AsString := Edit2.Text;
  Query1.Open;
  ShowMessage(Query1.FieldByName('maxvalue').AsString));
end;