var
i,j,d:integer;
s,k,p:string;
l:TStringList;
arr: array of String;
begin
l:=TStringList.Create;
 with StringGrid1 do
  for i := 0 to l.Count - 1 do
    begin
      
      for j := 1 to l.Count - 1 do //проводим цикл по нужному столбцу
      begin
      Cells[i, j]:=p;  //присваиваем p элемент массива
      l.Text:= p;  //в стринглист заносим текст p
      l.Delimiter:='.'; //устанавливаем разделитель
      arr[d]:=p; //в массив добовляем элемент p
      for d:=0 to p do //проводим цикл по массиву
      begin
      while Length(p) = 3 do  //усовия, покуда p не будет равно 3 добовляем 0
      insert('0',d[p],1);
      
       end
        
      end;

    end;

end;

      for d:=0 to p do //проводим цикл по массиву

var
v,i,j,d:integer;
s,k,p:string;
l:TStringList;
arr: array of String;
begin
l:=TStringList.Create;
 with StringGrid1 do
  for i := 0 to l.Count - 1 do
    begin
      
      for j := 1 to l.Count - 1 do //проводим цикл по нужному столбцу
      begin
      Cells[i, j]:=p;  //присваиваем p элемент массива
      l.Text:= p;  //в стринглист заносим текст p
      l.Delimiter:='.'; //устанавливаем разделитель
      SetLength(arr, l.Count);
      for v:= 0 to Length(arr)-1 do
      arr[v] := l[v]; 
     // arr[d]:=p; //в массив добовляем элемент p
     // for d:=0 to p do //проводим цикл по массиву
     // begin
      while IntToStr(Length(l)) = 3 do  //усовия, покуда p не будет равно 3 добовляем 0
      insert('0',l[v],1);
      
       end
        
      end;

end;

WriteLn(inet_addr('010.000.000.001'), ' = ', inet_addr('10.0.0.1'));