Firebird/Delphi Gen_ID sample

I need an example of a TIB_Statement.Gen_id call to generate an autonumber value for a table with an interger column. This example will use firebird, delphi, and ibobjects at [login to view URL] ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request. 3) Exclusive and complete copyrights to all work purchased. (No GPL, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site). ## Platform xp