Получить список серверов

[Shouldercannon]

Пытаюсь получить список серверов

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Host := '163.158.182.243';
  IdTCPClient1.Port := 28900;
  IdTCPClient1.Connect;
end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
  IdTCPClient1.Socket.Write('001');
  IdTCPClient1.IOHandler.ReadStrings(Memo1.Lines);
  IdTCPClient1.Disconnect;
end;

Получаю всё, но программа повисает намертво. Где допущена ошибка?

[BannedUser]

1. Чтобы исключить и понять где зависаения, не забывай про брейк поинты

2. как вариант, используй

Код: Выделить всё

Memo1.Lines.Add(IdTCPClient1.Socket.ReadLn);

[OlgaAlalf]

Задача - получить список зарегистрированных на компе юзеров и их паролей
Вопрос - как это осуществить???