[Klyaksa]

В

Код:

 procedure TForm1.FormCreate(Sender: TObject);

попробуй вставить перед try

Код:

IBDatabase1:=TIBDatabase.Create(nil);

должно получиться так

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
FIniFile: TIniFile;
begin
IBDatabase1:=TIBDatabase.Create(form1);
try///
  FIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
  try ///
  IBDatabase1.DatabaseName:= FIniFile.ReadString('base', 'path', '') ;
  Finally///
  FIniFile.Free;
  end;
  IBDatabase1.Connected:=true;
  with IBQuery1 do     //отрисовка таблицы при старте
  begin
  sql.Text:= 'select * from it order by data, equipment, invnum,sealnum, os,ss,domen';
  open;
  end;
  except///
  on E:Exception do
  begin
  Application.MessageBox(PChar(e.Message), 'ошибка!!!!!', MB_ICONERROR)   ;
  Halt;
  end;
  end;
end;

Но у меня при этом вылетает другая ошибка что не найдена dll-ка так как не устанпвлена Interbase.