procedure CreateIBDatabase(const DBName: string);
begin
with TIBDatabase.Create(nil) do
try
DatabaseName := ChangeFileExt(DBName, '.FDB');
Params.Add('USER ''SYSDBA''');
Params.Add('PASSWORD ''masterkey''');
Params.Add('PAGE_SIZE 4096');
Params.Add('DEFAULT CHARACTER SET ISO8859_1');
CreateDatabase;
finally
Free;
end;
end;