Probleme mit FOR-Schleife

[Bummi]

Zeile 62 ist kaum hilfreich als Information, das Semikolon ist zuviel nach dem do

so, sollte es aussehen

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  WaI: extended;
  Qva, a: Integer;
  i: Integer;
Begin
  For i := 1 to 25 do
  begin
    WaI := sqrt(i);
    i := Integer(ListBox1.Items);
  end;

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

gegf. fehlt bei Dir am Dateiende noch

end.