sklad program on delphi with firebird database