【急】：为什么突然出现这个错误......？(10分)

错误提示：
[Pascal Error] Unit1.pas(1): Unable to invoke Code Completion due to errors in source code。

现在在新的子程序中，只要输入完控件name之后再输入点号“.”，比如 “Form1.”，就会出现那个错误，本来是应该显示下拉列表的。但是在原有的子程序中输入代码又正常。
程序也可以编译，可以运行，就是在新控件中输入代码时错误。
重新CTRL+F9编译也没提示任何错误，可以通过编译。发现不出哪里出了问题。
谁能帮帮我这个菜鸟啊，谢谢。

代码如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SUISkinForm, ExtCtrls, SUIProgressBar, SUIForm, SUIButton,
ComCtrls, SUITreeView, StdCtrls, Grids, DBGrids, SUIDBCtrls, DB, ADODB,
ImgList, Menus, SUIPopupMenu, SUIMainMenu;
type
TForm1 = class(TForm)
suiButton1: TsuiButton;
suiRadioButton1: TsuiRadioButton;
suiCheckBox1: TsuiCheckBox;
suiTreeView1: TsuiTreeView;
CheckBox1: TCheckBox;
suiDBGrid1: TsuiDBGrid;
ADOTable1: TADOTable;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
ImageList1: TImageList;
suiPopupMenu1: TsuiPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Button1: TButton;
suiMainMenu1: TsuiMainMenu;
FF1: TMenuItem;
FFFFF1: TMenuItem;
FFFFFF1: TMenuItem;
FFF1: TMenuItem;
FFFFFFFFFF1: TMenuItem;
FFF2: TMenuItem;
FFFFF2: TMenuItem;
FFFF1: TMenuItem;
FFFFF3: TMenuItem;
suiMDIForm1: TsuiMDIForm;
Button2: TButton;
procedure N5Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure suiTreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MaxDATAVal:Integer;

implementation

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);
begin
suiTreeView1.SetFocus ;
if (Integer(suiTreeView1.Selected.Data) <>1) AND (suiTreeView1.Selected <> nil) then
if Application.MessageBox('确定要删除此项吗？', '提示', MB_ICONQUESTION +
MB_YESNO) = idYes then
BEGIN
suiTreeView1.Items.Delete(suiTreeView1.Selected);
END;
suiTreeView1.SetFocus;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
suiTreeView1.SetFocus ;
if (Integer(suiTreeView1.Selected.Data) <>1) AND (suiTreeView1.Selected <> nil) then
BEGIN
suiTreeView1.Selected.EditText;
END;
end;

procedure TForm1.N3Click(Sender: TObject);
var
T: TTreeNode;
begin
suiTreeView1.SetFocus ;
if (Integer(suiTreeView1.Selected.Data) <>1) AND (suiTreeView1.Selected <> nil) then
begin
//先设置当前图标：
T:=suiTreeView1.Selected;
T.ImageIndex:=8;
//开始添加子节点
T := suiTreeView1.Items.AddChild(suiTreeView1.Selected, '（新增子节点）');
MaxDATAVal:=MaxDATAVal+1;
T.Data :=Pointer(MaxDATAVal);
//suiTreeView1.Selected.Data:=Pointer(100);
T.ImageIndex := 2;
T.SelectedIndex:=4;
T.Selected:=TRUE;
suiTreeView1.SetFocus ;
END;
end;

procedure TForm1.N2Click(Sender: TObject);
var
T: TTreeNode;
begin
suiTreeView1.SetFocus ;
//if suiTreeView1.Selected <> nil then
begin
T := suiTreeView1.Items.ADD(suiTreeView1.Selected, '（添加节点）');
MaxDATAVal:=MaxDATAVal+1;
T.Data :=Pointer(MaxDATAVal);
//suiTreeView1.Selected.Data:=Pointer(100);
T.ImageIndex := 2;
T.SelectedIndex:=4;
T.Selected:=TRUE;
suiTreeView1.SetFocus ;

END;
end;

procedure TForm1.N1Click(Sender: TObject);
var
T: TTreeNode;
begin
suiTreeView1.SetFocus ;
if Integer(suiTreeView1.Selected.Data) <>1 then
begin
T := suiTreeView1.Items.Insert(suiTreeView1.Selected, '（插入节点）');
MaxDATAVal:=MaxDATAVal+1;
T.Data :=Pointer(MaxDATAVal);
//suiTreeView1.Selected.Data:=Pointer(100);
T.ImageIndex := 2;
T.SelectedIndex:=4;
T.Selected:=TRUE;
suiTreeView1.SetFocus ;

END;
end;

procedure TForm1.N8Click(Sender: TObject);
var
T: TTreeNode;
begin
if suiTreeView1.Items.Count>0 then
if Application.MessageBox('确定要清空所有节点吗？', '提示', MB_ICONQUESTION +
MB_YESNO) = idYes then
BEGIN
suiTreeView1.Items.Clear;
T:=suiTreeView1.Items.ADD(suiTreeView1.Selected, '所有记录');
MaxDATAVal:=1;
T.Data :=Pointer(MaxDATAVal);
T.ImageIndex := 5;
T.SelectedIndex:=4;
T.Selected:=TRUE;
suiTreeView1.SetFocus ;

END;
end;


procedure TForm1.suiTreeView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Node:TTreeNode;
begin
Node:=suiTreeView1.GetNodeAt(X,Y);
if Node<>nil then
Node.Selected:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
if suiTreeView1.Selected <> nil then
begin
i := Integer(suiTreeView1.Selected.Data);
ShowMessage(IntToStr(i));

end;
end;


procedure TForm1.FormActivate(Sender: TObject);
begin
MaxDATAVal:=100;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
if suiTreeView1.Selected <> nil then
begin
i := Integer(suiTreeView1.Selected.Data);
ShowMessage(IntToStr(i));
suiTreeView1.
end;
end;

end.

你把uses 的单元都先删除。特别是和控件相关的。是不是有的控件单元指向的路径不对。

ide 中 build all 修正其他单元的问题后在看这个 ...

to zywcd,LSUPER
按你们说的做，删掉use后的内容，结构编译的时候乱套了，单元跑到type下了，还都是一样错误！
build all时提示如下，但是还是可以正确编译出exe文件：
[Warning] SUIForm.pas(414): Symbol 'MakeObjectInstance' is deprecated
[Warning] SUIForm.pas(1390): Symbol 'MakeObjectInstance' is deprecated
[Warning] SUIForm.pas(1395): Symbol 'MakeObjectInstance' is deprecated
build all之后，还是没有解决问题，还是不能正常输入代码了，一输入点号就出错误提示。