не могу объявить IBTAble

[ВалерОК]

пишет что типо IBTAble не объявлен, мож какая нить ошибка есть???

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Mask, Grids, DBGrids, DB, ADODB,
  Buttons,     IBDatabase,  IBCustomDataSet, IBTable,
    DBCtrls;

type
  TForm5 = class(TForm)
    ds1: TDataSource;
    con1: TADOConnection;
    qry1: TADOQuery;
    dbgrd1: TDBGrid;
    medt3: TMaskEdit;
    btn1: TBitBtn;
    btn2: TBitBtn;
    medt7: TMaskEdit;
    cbb1: TComboBox;
    btn3: TBitBtn;

    procedure medt3Change(Sender: TObject);
      procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
       procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
 Form5: TForm5;

   i:integer;

implementation

{$R *.dfm}
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
 IBTable1.Insert;

  IBTable1.FieldByName('ФИО').AsString:=edit3.Text;

  IBTable1.Post;

  Edit3.Clear;


procedure TForm5.BitBtn2Click(Sender: TObject);
begin
IBTable1.Delete;
end;
 procedure TForm5.Edit3KeyPress(Sender: TObject; var Key: Char);

begin
 if key in ['0'..'9'] then
   begin key:=#0; ShowMessage('Некорректный ввод!!!'); end;

end;
 
procedure TForm5.FormShow(Sender: TObject);
begin
IBTable1.Active:=True;
  ComboBox1.Clear;
  IBTable1.First;
  for i:=1 to IBTable1.RecordCount do
   begin
      ComboBox1.Items.Add(IBTable1.FieldValues['ФИО']);
      IBTable1.Next;
end;
  end;
procedure TForm5.BitBtn3Click(Sender: TObject);
begin
IBTable1.First;
IBTable1.Locate('ФИО',ComboBox1.Text,[]);
end;

procedure TForm5.FormShow(Sender: TObject);
begin
IBTable1.Active:=True;
  ComboBox1.Clear;
  IBTable1.First;
  for i:=1 to IBTable1.RecordCount do
   begin
      ComboBox1.Items.Add(IBTable1.FieldValues['ФИО']);
      IBTable1.Next;
end;
  end;
procedure TForm5.BitBtn3Click(Sender: TObject);
begin
IBTable1.First;
IBTable1.Locate('ФИО',ComboBox1.Text,[]);
end;

end.

end.

end.

:confused

[Stilet]

Правильно пишут. Смотри:

type
TForm5 = class(TForm)
ds1: TDataSource;
con1: TADOConnection;
qry1: TADOQuery;
dbgrd1: TDBGrid;
medt3: TMaskEdit;
btn1: TBitBtn;
btn2: TBitBtn;
medt7: TMaskEdit;
cbb1: TComboBox;
btn3: TBitBtn;

procedure medt3Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var

Найди его тут.