Mover Tabla?

[Gagiel]

Hola,

Estoy usando una tabla TStringGrid, para una visualizar IP's en tiempo real.
El tema está en que cuando quiero borrar alguna dirección y subir la tabla (para no dejar campos vacios) no hay forma de substituir los campos.
Pongo el código:

i:=1;
while (i<tcpprincipal.gridclients.RowCount) do
      begin
          if (tcpprincipal.gridclients.cells[1,i]=TCPServer.CLientList[ID].Host) then begin
          tcpprincipal.gridclients.cells[0,i] := tcpprincipal.gridclients.cells[0,i+1];
          tcpprincipal.gridclients.cells[1,i] := tcpprincipal.gridclients.cells[1,i+1];
          tcpprincipal.gridclients.cells[2,i] := tcpprincipal.gridclients.cells[2,i+1];
          i:=i+1;
          while (i<tcpprincipal.gridclients.RowCount) do
          begin
              tcpprincipal.gridclients.cells[0,i] := tcpprincipal.gridclients.cells[0,i+1];
              tcpprincipal.gridclients.cells[1,i] := tcpprincipal.gridclients.cells[1,i+1];
              tcpprincipal.gridclients.cells[2,i] := tcpprincipal.gridclients.cells[2,i+1];
              i:=i+1;
          end;
         tcpprincipal.gridclients.RowCount := tcpprincipal.gridclients.RowCount-1;
        end;
        i:=i+1;
      end;

Lo que pasa es que al poner el "tcpprincipal.gridclients.cells[2,i+1];" no me coje el valor que tiene esa celda :s
Qual es la forma correcta de reodrenar la tabla?

Gracias.

Saludos