NodeLevel1 := XMLDocument1.ChildNodes.FindNode('ИС_СЗВ-4-2');
  If NodeLevel1 <> Nil Then
    и все в таком же духе :)

procedure TForm1.Button2Click(Sender: TObject);
var
  uet, un, t, t1, i, n: integer;
  r, r1, q, hi, r0, a, d1, d2, l: real;

begin
  n:=10;
  r0:=10.3;
  a:=0.0056;
  d1:=0.1;
  d2:=12;
  l:=0.24;
  t1:=strtoint(edit1.Text);
  uet:=strtoint(inputbox('Íà÷àëüíîå Uýò', 'Ââåäèòå çíà÷åíèå', '300'));
  un:=strtoint(inputbox('Íà÷àëüíîå Uí', 'Ââåäèòå çíà÷åíèå', ''));
  r1:=r0*un/uet;
  edit2.text:=floattostr(r1);
  for i:=1 to n do
  begin
    uet:=strtoint(inputbox('Uýò','Ââåäèòå çíà÷åíèå',''));
    un:=strtoint(inputbox('Un','Ââåäèòå çíà÷åíèå',''));
    r:=r0*un/uet;
    memo4.Lines.Add(floattostr(r));
    t:=t1+(r-r1)/r1*(1+a*t1)/a;
    memo3.Lines.Add(floattostr(t));
    q:=uet*un/r0;
    memo2.Lines.Add(inttostr(q));
    hi:=(q/(2*Pi*l*(t-t1)))*ln(d2/d1);
    memo1.Lines.Add(inttostr(hi));
  end;

end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  y, v, accel, t, dt, h: extended;
  ncalc: integer;
const
  g=9.8;
implementation

{$R *.dfm}

procedure Euler(var y, v, accel, t, dt,h: extended;
                    ncalc: integer);
var
  icalc: integer;
  print_period: real;
begin
  print_period:=0.1;
  ncalc:=round(print_period/dt);
  //t:=0;
  //y:=0;
for icalc:=1 to ncalc do
    begin
      y:=y+v*dt;
      v:=v+accel*dt;
    end;
    t:=t+dt*ncalc;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  t:=0; //Начальное время (в секундах)
  y:=0; //Начальное смещение (в метрах)
  h:=strtofloat(Edit2.Text);
  v:=strtofloat(edit3.text);
  dt:=strtofloat(edit4.text);
  accel:=g;
  for i:=1 to 100 do
    begin
      StringGrid1.RowCount:=i+1;
      Stringgrid1.Cells[0,0]:='y';
      Stringgrid1.Cells[1,0]:='V';
      Stringgrid1.Cells[2,0]:='уск';
      Stringgrid1.Cells[3,0]:='t';
      Stringgrid1.Cells[0,i]:=floattostrf(y,fffixed,6,6);
      Stringgrid1.Cells[1,i]:=floattostrf(v,fffixed,3,2);
      Stringgrid1.Cells[2,i]:=floattostrf(accel,fffixed,3,2);
      Stringgrid1.Cells[3,i]:=floattostrf(t,fffixed,3,2);

      Euler(y, v, accel, t, dt, h,ncalc,);
    end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;


end.

i := 1;
while y <= h do
begin
  // ваш код
  i := i + 1;
end;

for i:=1 to 100 do
begin
  if y > h then
    break;
end;