Someone

procedure TForm1.Button4Click(Sender: TObject);
var
  i:integer;
begin
  if IdTCPClient.Connected then IdTCPClient.Disconnect;
  for i := 0 to listviewServers.Items.Count - 1  do
  begin
    Connected := False;
    Error := False;
    IdTCPClient.Port := 4899;
    IdTCPClient.Host := listviewServers.Items.Item[i].SubItems[0];
     try
      try
        IdTCPClient.Connect();
       
        if IdTCPClient.Connected = True then //the bools tell the app that a port is open
        begin
          listviewServers.Items.Item[i].SubItems[1] := 'Online';
          IdTCPClient.Disconnect;
        end
        else
          listviewServers.Items.Item[i].SubItems[1] := 'Offline';
      finally
        IdTCPClient.Disconnect;
      end; 
     except
          on Exception do
             ListViewServers.Items.Item[i].SubItems[1] := 'Offline'
     end;
    end;
  end;
end;