Сканер портов

[OPF_Nik]

Народ, помогите с прогой, не хочет записывать открытые порты в список

procedure TForm1.Button1Click(Sender: TObject);
var
  s,f: integer;
begin
  s:= StrToInt(Edit1.Text);//начальный порт
  f:= StrToInt(Edit2.Text);// конечный порт
    if s >= f then //...
    MessageDlg('Заданы не верные значения', mtWarning, [mbOk] , 0) 
    else begin
    Memo1.Lines.Add('Начинаем сканирование..');// ....
      for p:= s to f  do //начинаем цикл сканирования...
        try
        IdTCPClient1.Port:= p;
        if IdTCPClient1.Connected=true then//проверяем открыт ли порт..
        Memo1.Lines.Add('Порт открыт: '+ IntTostr(p));
      except
    end;
    Memo1.Lines.Add('Сканирование завершенно');
  end;
 end;
end.

[crystalbit]

IdTCPClient1.Port:= p;
ты просто присваиваешь номер порта свойству компонента

глупо сразу рассчитывать, что if IdTCPClient1.Connected

там должен быть какой-нибудь метод типа connect

[OPF_Nik]

crystalbit спс