сканер портов не работает

[Reds]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
ipstr:string;
begin
ipstr:='127.0.0.1';
if not InputQuery('Vnimaniye','vvedi ip-adres',ipstr) then exit;
for i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do
begin
TCPClient1.RemotePort:=IntToStr(i);
TcpClient1.Open;
if TcpClient1.Connected then
memo1.Lines.Add(IntToStr(i)+'otkryt ');
TcpClient1.Close;


end;

[s.Creator]

попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
ipstr:string;
begin
ipstr:='127.0.0.1';
if not InputQuery('Vnimaniye','vvedi ip-adres',ipstr) then exit;
TCPClient1. RemoteHost := ipstr;
for i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do
begin
TCPClient1.RemotePort:=IntToStr(i);
if TcpClient1.Connect then
memo1.Lines.Add(IntToStr(i)+'otkryt');
TcpClient1.Close;
end;