在添加代码时，一直提示如下错误，请前辈指点！

我有一段学生管理的源代码。运行没问题。他是用Interbase做的后台库。我现在改用MSSQL2000做后台库，并依葫芦画瓢做界面，把原来的DATAMODULE的内容，全改为MSSQL的属性。但在做其他界面并写代码是，老是出现：
[Fatal Error] login.pas(32): Could not compile used unit ’E:\new1\MAIN.PAS’
[Fatal Error] login.pas(32): Could not compile used unit ’E:\new1\MAIN.PAS’
[Pascal Error] login.pas(1): Unable to invoke Code Completion due to errors in source code
下面就是一段登陆窗口的代码，在添加B_login的click事件时就出现上面的错误。
unit login;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TF_login = class(TForm)
    L_tittle: TLabel;
    L_servername: TLabel;
    L_name: TLabel;
    L_password: TLabel;
    B_login: TButton;
    B_cancle: TButton;
    T_serveraddress: TComboBox;
    E_name: TEdit;
    E_password: TEdit;
    procedure B_loginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  F_login: TF_login;implementationuses MAIN,datamodule;{$R *.dfm}procedure TF_login.B_loginClick(Sender: TObject);
var
passwd,passwd:String;
begin
With Datamodule1 do
BeginDatabase.
end;
end.在敲完Database.它马上就提示上面的错误。
我的项目文件都存放在’E:\new1\MAIN.PAS’，不知是何故（在下是新手），还请各位指点。TKS！！！