Probleme mit FOR-Schleife

[Bummi]

wenn ich mal rate was Du vorhaben könntest

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  WaI: extended;
  Qva, a: Integer;
  i: Integer;
Begin
  For i := 1 to 25 do
  begin
    WaI := sqrt(i);
    ListBox1.Items.Add(FloatToStr(WaI));
    // oder
    //ListBox1.Items.Add(FormatFloat('0.000',WaI));
  end;

  For a := 1 to 25 do
  Begin
    Qva := sqr(a);
    ListBox2.Items.Add(FloatToStr(Qva));
  end;
End;

http://crashkurs.christian-stelzmann.de/