Inkompatible Typen

[greenkohl23]

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