Изменить в цикле записи ListView в определённых колонках

[Shouldercannon]

1. Есть ListView с записями (три колонки: Адресс, Имя, Карта)
2. В цикле берём Caption первой строки (Адрес) и после опроса дописываем в эту же строку SubItems[0] (Имя) и SubItems[1] (Карта) и так для всех колонок в ListView.
Если один из северов не отвечает, то поток заканчивает свою работу, этого не должно быть. Если север выключен, то Delphi указывает на

Delete(txt, 1, Pos('\hostname\', txt) - 1);

[Человек_Борща]

Это просто:

procedure TForm1.FormCreate(Sender: TObject);
var
  LI: TlistItem;
  i: smallint;
begin
  for i := 1 to 5 do
  begin
    LI := ListView1.Items.Add;
    Li.Caption := IntToStr(i);
    li.SubItems.Add(IntToStr(i));
    li.SubItems.Add(IntToStr(i));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, i2: SmallInt;
begin
  for i := 0 to ListView1.Items.Count - 1 do  //цикл по элементам caption
  begin
    ListView1.Items[i].Caption := 'changed';
    for i2 := 0 to ListView1.Items[i].SubItems.Count - 1 do  //цикл по суб-строкам строки caption
    begin
      ListView1.Items[i].SubItems[i2] := 'Sub changed!';
    end;
  end;
end;

[Shouldercannon]

Не стал заморачиваться. Просто содержимое ListView заношу в TStringList, потом затираю ListView и заново веду заполнение. Всё бы хорошо, но поток убивается на неотвечающем сервере

var
  IdUDPClient: TIdUDPClient;
  TSL: TStringList;
  Server: TListItem;
  i: Integer;
  txt, HostName, MapName, GameType, NumPlayers, MaxPlayers, Lock: string;
begin
  FormMain.ListView1.Clear;

  IdUDPClient := TIdUDPClient.Create(nil);
  TSL := TStringList.Create;
  TSL.LoadFromFile(ExtractFilePath(Application.ExeName) + 'test.txt');

  for i := TSL.Count - 1 downto 0 do
  begin
    Server := FormMain.ListView1.Items.Add;
    Server.Caption := TSL.Strings[i];

    IdUDPClient.Host := Copy(TSL.Strings[i], 1, Pos(':', TSL.Strings[i]) - 1);
    IdUDPClient.Port := StrToInt(Copy(TSL.Strings[i], Pos(':', TSL.Strings[i]) + 1, Length(TSL.Strings[i])));
    IdUDPClient.Active := True;
    IdUDPClient.Send('\status\');
    txt := IdUDPClient.ReceiveString(2000);

    Delete(txt, 1, Pos('\hostname\', txt) - 1); // При выключенно севрере тут поток заканчивает свою работу. Этого не должно быть!
    HostName := Copy(txt, Pos('\hostname\', txt) + 10, Pos('\hostport\', txt) - 11);

    Server.SubItems.Add(HostName);
  end;

  IdUDPClient.Free;
  TSL.Free;

[veniside]

> Этого не должно быть!

if (0 < Pos('\hostname\', txt)) then begin
  Delete(....);
  Copy(....);
end;

[Shouldercannon]

Сообщение от veniside

> Этого не должно быть!

if (0 < Pos('\hostname\', txt)) then begin
  Delete(....);
  Copy(....);
end;

Не помогает, видимо из-за самой ошибки UDP вылетает поток. Как обойти эту ошибку?

[veniside]

Обернуть проблемный код в try ... except end;

[Shouldercannon]

Сообщение от veniside

Обернуть проблемный код в try ... except end;

Я так с самого начала подумал и обернул

Delete(txt, 1, Pos('\hostname\', txt) - 1);

дабы Delphi на него указал, а оказалось надо было обернуть

txt := IdUDPClient.ReceiveString(2000);