完蛋 晕菜了~~~~~~~~~~~~~~~~~~~~

var
  Form1: TForm1;
  ini:TIniFile;
  iniFileName:string;
  strMenu:TStrings;procedure TForm1.FormCreate(Sender: TObject);
begin
  iniFileName:=ExtractFilePath(Paramstr(0))+'test.ini';
  showmessage(iniFileName);
  strMenu:=TStrings.Create;
  ini:=Tinifile.Create(iniFileName);
  ini.ReadSection('BarItems',strMenu);
  //showmessage(strMenu.Text);
end;=====================
有3个警告：
[Warning] Unit1.pas(54): Constructing instance of 'TStrings' containing abstract method 'TStrings.Clear'
[Warning] Unit1.pas(54): Constructing instance of 'TStrings' containing abstract method 'TStrings.Delete'
[Warning] Unit1.pas(54): Constructing instance of 'TStrings' containing abstract method 'TStrings.Insert'
然后运行时出错  555555555~~~~~~~~~~~~~
  //showmessage(strMenu.Strings[1]);
end;