TlistBox问题？

Question

如何获取TlistBox的子项的内容呀，每次都是整个TlistBox所有内容
  for IPCont :=1  to lstLanIP.Count  do
          begin
               //   ShowMessage(Trim(lstLanIP.Items(IPCont).Text));
              lstLanIP.ItemIndex:= IPCont;
            ShowMessage(Trim(lstLanIP.Items.Text));
         end;这样不行呢？请大哥帮忙

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
  for i := 0 to listbox1.Count- 1 do
  begin
    if listbox1.Selected[i]  then
    showmessage(listbox1.Items[i]);
  end;
end;