Danke Mackhack für dein Posting, aber leider geht das so nich, denn ich bekomm 3 Fehler.
Nach dem then kommt die Meldung "erwartet aber THEN gefunden"
Code:
begin
MinWert := Tipp[I - 1];
if ( Tipp[I - 1] > MaxWert then
Dann nach dem RICHTIG; kommt die Meldung "Inkompatible Typen:'Integer und procedure untyped pointer or untyped parameter'"
Code:
begin
Richtig := Inc(Richtig);
Und der letzte Fehler ist, die bei der Procedure wird gesagt: Anweisung erwartet aber Procedure gefunden
Code:
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
danke für eure Mühen