error

[Hugoalgave]

claro amigo neftali ya subo el codigo que llevo en .rar junto con la base de datos que estoy haciendo casimiro disculpame tienes toda la razon el nombre que puse esta mal no cometere ese error otra vez mucha gracias por tu correccion.

esta es residentes la cual tengo bien y no me bota ningun error

Código SQL [-]
unit REGISTRO2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, IBQuery, IBDatabase,
  IBCustomDataSet, Mask;

type
  TRESIDENTES = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    DBNavigator1: TDBNavigator;
    Residentes: TIBDataSet;
    Dresidentes: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RESIDENTES: TRESIDENTES;

implementation

uses REGISTRO5,unidaddatos;

{$R *.dfm}

procedure TRESIDENTES.Button1Click(Sender: TObject);
begin
CLOSE;
end;

procedure TRESIDENTES.Button2Click(Sender: TObject);
begin
 GRUP_FAMILIAR.show;
end;

procedure TRESIDENTES.FormShow(Sender: TObject);
begin
 residentes.open;
end;

procedure TRESIDENTES.FormCreate(Sender: TObject);
begin

end;

end.

y esta es de visitantes el cual me bota el error

Código SQL [-]
unit REGISTRO3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, DB, IBCustomDataSet;

type
  TVISITANTES = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBNavigator1: TDBNavigator;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  VISITANTES: TVISITANTES;

implementation

uses REGISTRO5,unidaddatos;

{$R *.dfm}

procedure TVISITANTES.Button1Click(Sender: TObject);
begin
CLOSE;
end;

procedure TVISITANTES.FormShow(Sender: TObject);
begin;
end;

procedure TVISITANTES.FormCreate(Sender: TObject);
begin

end;

end.