Нужно переделать сканер портов

[igor8759]

Нужно преобразовать код Delphi под лазарус, в лазарусе нет элемента TCPcliet.
Как его переделать?

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
ip:String;
begin
ip:='127.0.0.1'; //По умолчанию сканируем себя
if not InputQuery('Attention','Enter IP-address',ip) 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)+' open'); //Если удалось, то сообщаем об этом
TcpClient1.Close; //Закрываем порт.
end;
end;