Базы данных

[Volshebnick]

Есть три формы DataModule(DataM), Форма авторизация(avtoriz) к базе данных(Rasp) И главная форма. Но естьь илсключения

unit Rasp;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, avtoriz;

type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
avtoriz.Form2.ShowModal;

end;

end.

Но он работает.
А есть код авторизациии чють ниже
unit avtoriz;

interface

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

type
TForm2 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Edit1: TEdit;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Rasp;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
a,b: string;
i:integer;

begin
ADOTable1.First;
for i:=0 to ADOTable1.RecordCount-1 do
begin
if (DBLookupComboBox1.Text=ADOTable1.F ields[1].Asstring) and (Edit1.Text = ADOTable1.Fields[2].Asstring) then
begin
Label3.Caption:='Óñïåõ';
ShowMessage('Àâòîðèçàöèÿ ïðîøëà óñïåøíî!');
Form1.
exit
end
else
if ADOTable1.RecNo= ADOTable1.RecordCount-1 then
begin
Label3.Caption:='Íåóäà÷à';
ShowMessage('Íå ïðàâèëüíûé ëîãèí èëè ïàðîëü.');
exit;
end
else
ADOTable1.Next;

end;

end;
end.
Но он работает но не вызывает форму окна без этих
Form1.Show;
после ShowMessage
а начинаешь писать выдает ошибку
unable to invoke code completion due to errors in source code

Что делать вот код DataM
unit dataM;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDataModule2 = class(TDataModule)
ADOConnection1: TADOConnection;
DanOPolzovADOTable1: TADOTable;
ADOQuery1: TADOQuery;
DanOPolzovSource1: TDataSource;
freecabSource1: TDataSource;
freekabADOTable1: TADOTable;
FreetimeADOTable1: TADOTable;
FreetimeSource1: TDataSource;
GodovgravicSource2: TDataSource;
GroupSource3: TDataSource;
KabinetSource4: TDataSource;
KafedraSource5: TDataSource;
KursSource6: TDataSource;
Mesto_provSource7: TDataSource;
ParamsSource8: TDataSource;
GodovGaficADOTable2: TADOTable;
GroupADOTable3: TADOTable;
KabinetADOTable4: TADOTable;
KafedraADOTable5: TADOTable;
KursADOTable6: TADOTable;
Mesto_provADOTable7: TADOTable;
ParamsADOTable1: TADOTable;
PedpodovatADOTable2: TADOTable;
raspADOTable3: TADOTable;
PredpodovatSource1: TDataSource;
raspSource2: TDataSource;
StreamSource1: TDataSource;
SubjectSource2: TDataSource;
SreamADOTable1: TADOTable;
SubjectADOTable2: TADOTable;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

[Volshebnick]

Дописал модуль avtiriz

rasp.Form1.Show;
Все равно не работает. Почему не знаете?