ItemIndex something i TListView

Jeg har en procedure som checker en FTP for hhv. om den findes og om man kan logge ind som anonymous. Alt efter hvad den finder ud af, tilføjer den resultatet til en TListView (LWFTP).

Nu vil jeg så gerne ha\', at når man klikker på et item i LWFTP, så bli\'r IP\'en fra den valgte skrevet over i en label. Noget lign. Label11.Caption := LWFTP.Columns[0].<ItemIndex-something>;

Min procedure ser sådan ud:

procedure TfrmPing.CheckFTP(ip: String);
var
  ListItem: TListItem;
begin
  FTP.Host := ip;
  FTP.User := \'anonymous\';
  FTP.Password := \'123@321.at\';
  try
    FTP.Connect();
  except on e:exception do
    if e.Message = \'Socket Error # 10061\'#$D#$A\'Connection refused.\' then
    else
      with LWFTP do begin
        ListItem := Items.Add;
        ListItem.Caption := ICMP.Host;
        ListItem.SubItems.Add(\'Nej\');
      end
  end;
  if FTP.Connected then begin
    inc(count);
    label3.caption := IntToStr(count);
    FTP.Disconnect;
    with LWFTP do begin
      ListItem := Items.Add;
      ListItem.Caption := ICMP.Host;
      ListItem.SubItems.Add(\'Ja\');
    end;
  end
end;

Ved godt det med exception\'en er lidt fusk, men det virker ;o)

Snowball