begin if IBDatabase1.Connected then IBDatabase1.Connected := false; IBDatabase1.DatabaseName := pathtabla.gdb'; IBDatabase1.Open; end;