Hvorfor virker ik

hvorfor virker dette ikke.

procedure Tfindserverform.Button1Click(Sender: TObject);
var
i : integer;
X : integer;
ip : string;
startafIp : string;
begin
server := edit1.text;
i := 1;
X := 999;
startafip := edit1.Text;
        While (I < X) do
        begin
        i := i + 1;
        if length(server) > 0 then
        with clientsocket1 do
        begin
        host := server + inttostr(i);
        active := true;
        end;