добрый день!
нашел шнягу https://club.shelek.ru/viewart.php?id=212
но написано очень умно. Из написанного понял что форма создается динамически, но, а вот того что искал, не понял как создавать базу данных?
или откуда береться функция:
function GetDbParams (var DBName: string; var Dialect: integer;
var UserName, Password: string): boolean;
вот что удалось написать:
procedure TForm1.CornerButton1Click(Sender: TObject);
begin
IBDataBase1.SQLDialect:=1;
IBDataBase1.DatabaseName :=ExtractFilePath(ParamStr(0))+'test.gdb';
IBDataBase1.CreateDatabase;
end;