急！跪求高手指点组件问题！

Question

unit Unit_Main;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, LbSpeedButton, StdCtrls, LbButton, ExtCtrls, jpeg, Menus;type
  TForm_Main = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    Image2: TImage;
    Label13: TLbSpeedButton;
    Label12: TLbSpeedButton;
    Label11: TLbSpeedButton;
   Label15: TLbSpeedButton;
   Label16: TLbSpeedButton;
    LbButton1: TLbButton;
   LbButton2: TLbButton;
   LbButton3:TLbButton;
 LbButton4: TLbButton;
   LbButton5: TLbButton;
   LbButton6: TLbButton;
   LbButton7: TLbButton;
   LbButton8: TLbButton;
    LbButton9: TLbButton;
   LbButton10: TLbButton;
    LbButton11: TLbButton;
    procedure FormCreate(Sender: TObject);
    procedure LbButton1MouseEnter(Sender: TObject);
    procedure LbButton1MouseExit(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Label13Click(Sender: TObject);
    procedure Label15Click(Sender: TObject);
    procedure Label12Click(Sender: TObject);
    procedure Label11Click(Sender: TObject);
    procedure Label16Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure LbButton1Click(Sender: TObject);
    procedure LbButton2Click(Sender: TObject);
    procedure LbButton3Click(Sender: TObject);
    procedure LbButton4Click(Sender: TObject);
    procedure LbButton5Click(Sender: TObject);
    procedure LbButton6Click(Sender: TObject);
    procedure LbButton8Click(Sender: TObject);
    procedure LbButton7Click(Sender: TObject);
    procedure LbButton9Click(Sender: TObject);
    procedure LbButton10Click(Sender: TObject);
    procedure LbButton11Click(Sender: TObject);
    procedure Label14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form_Main: TForm_Main;implementationuses Unit_User, Unit_Users, Unit_Styles, Unit_subjects, Unit_answer,
  Unit_exam, Unit_test, Unit_select_styles, Unit_Exercise, Unit_Kaoshi,
  Unit_result, Unit_error, Unit_next_train, Unit_Empty,Unit_del,
  Unit_Search, Unit_Help;{$R *.dfm}procedure TForm_Main.FormCreate(Sender: TObject);
begin
try
Form_User:=TForm_User.Create(application);
Form_User.ShowModal;
finally
Form_User.Free;
end;
end;procedure TForm_Main.LbButton1MouseEnter(Sender: TObject);
begin
(Sender as TLbButton).Font.Color:=clRed;
end;procedure TForm_Main.LbButton1MouseExit(Sender: TObject);
begin
(Sender as TLbButton).Font.Color:=clBlack;
end;procedure TForm_Main.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
if application.MessageBox('是否真的要退出?','提示',MB_YesNo+MB_IconQuestion+MB_systemModal)=IDYes then
begin
CanClose:=true;
application.Terminate;
end
else
canclose:=false;
end;procedure TForm_Main.Label13Click(Sender: TObject);
begin
if Application.FindComponent('Form_Exercise')=nil then
Application.CreateForm(TForm_Exercise,Form_Exercise);
Form_Exercise.Show;
end;procedure TForm_Main.Label15Click(Sender: TObject);
begin
if Application.FindComponent('Form_select_styles')=nil then
Application.CreateForm(TForm_select_styles,Form_select_styles);
Form_select_styles.Show;
end;procedure TForm_Main.Label12Click(Sender: TObject);
begin
if Application.FindComponent('Form_Kaoshi')=nil then
Application.CreateForm(TForm_Kaoshi,Form_Kaoshi);
Form_Kaoshi.Show;
end;procedure TForm_Main.Label11Click(Sender: TObject);
begin
if Application.FindComponent('Form_error')=nil then
Application.CreateForm(TForm_error,Form_error);
Form_error.Show;
end;procedure TForm_Main.Label16Click(Sender: TObject);
begin
if Application.FindComponent('Form_next_train')=nil then
Application.CreateForm(TForm_next_train,Form_next_train);
Form_next_train.Show;
end;procedure TForm_Main.N11Click(Sender: TObject);
begin
if Application.FindComponent('Form_Exercise')=nil then
Application.CreateForm(TForm_Exercise,Form_Exercise);
Form_Exercise.Show;
end;procedure TForm_Main.LbButton1Click(Sender: TObject);
begin
if Application.FindComponent('Form_Users')=nil then
Application.CreateForm(TForm_Users,Form_Users);
Form_Users.Show;
end;procedure TForm_Main.LbButton2Click(Sender: TObject);
begin
if Application.FindComponent('Form_styles')=nil then
Application.CreateForm(TForm_styles,Form_styles);
Form_styles.Show;
end;procedure TForm_Main.LbButton3Click(Sender: TObject);
begin
if Application.FindComponent('Form_subjects')=nil then
Application.CreateForm(TForm_subjects,Form_subjects);
Form_subjects.Show;
end;procedure TForm_Main.LbButton4Click(Sender: TObject);
begin
if Application.FindComponent('Form_answer')=nil then
Application.CreateForm(TForm_answer,Form_answer);
Form_answer.Show;
end;procedure TForm_Main.LbButton5Click(Sender: TObject);
begin
if Application.FindComponent('Form_exam')=nil then
Application.CreateForm(TForm_exam,Form_exam);
Form_exam.WindowState:=wsMaximized;
Form_exam.Show;
end;procedure TForm_Main.LbButton6Click(Sender: TObject);
begin
if Application.FindComponent('Form_test')=nil then
Application.CreateForm(TForm_test,Form_test);
Form_test.Show;
end;procedure TForm_Main.LbButton8Click(Sender: TObject);
begin
if Application.FindComponent('Form_Empty')=nil then
Application.CreateForm(TForm_Empty,Form_Empty);
Form_Empty.Show;
end;procedure TForm_Main.LbButton7Click(Sender: TObject);
begin
if Application.FindComponent('Form_result')=nil then
Application.CreateForm(TForm_result,Form_result);
Form_result.Show;
end;procedure TForm_Main.LbButton9Click(Sender: TObject);
begin
if Application.FindComponent('Form_del')=nil then
Application.CreateForm(TForm_del,Form_del);
Form_del.Show;
end;procedure TForm_Main.LbButton10Click(Sender: TObject);
begin
close;
end;procedure TForm_Main.LbButton11Click(Sender: TObject);
begin
if Application.FindComponent('Form_Search')=nil then
Application.CreateForm(TForm_Search,Form_Search);
Form_Search.WindowState:=wsMaximized;
Form_Search.Show;
end;procedure TForm_Main.Label14Click(Sender: TObject);
begin
if Application.FindComponent('Form_Help')=nil then
Application.CreateForm(TForm_Help,Form_Help);
Form_Help.Show;
end;
end.
以上是部分程序段，
调试的时候出现：Form_Main Label15 没有相应组件，是否删除声明？
求解原因，不胜感激！

Answer 1

问题补充，我装的是DELPHI7，是不是缺少组件啊？

Answer 2

Label15: TLbSpeedButton;
把这一行删掉就好了.
你的界面上没有Label15这个标签,但是你又声明了它.

Answer 3

删除了也不行，删除后调试就显示其他的Label没有相应组件，而且我在其他代码中调用了Label15这个标签，真的不知道怎么办才好啊。

Answer 4

TLbSpeedButton
那你是不是没有装这个控件了啊.

Answer 5

删除了也不行，删除后调试就显示其他的Label没有相应组件，而且我在其他代码中调用了Label15这个标签，真的不知道怎么办才好啊。其他的没有，就删除其他的，直到可以运行

Answer 6

是缺少组件的问题，TLbSpeedButton是自定义的组件，你文件头那Uses了LbSpeedButton, LbButton；
1.看看你library path里面路径设置对不。
2.这个自定义的组件可能得先安装一下。如果你比较菜的话，建议你找前程序员询问~

Answer 7

感谢楼上！那我装了LbSpeedButton, LbButton两个控件应该可以运行了吧？