Nach bestimmer Variable bestimme Aktion ausführen

[Fractal]

Ok, habs mit

Delphi-Quellcode:

procedure TErgebnisse.FormActivate(Sender: TObject);
begin
   PresentRatePictures;
end;

procedure TErgebnisse.PresentRatePictures;
begin
   Schlecht.Visible := n < 4; // 0, 1, 2, 3
   Ok.Visible := (n > 3) and (n < 7); // 4, 5, 6
   Gut.Visible := (n > 6) and (n < 10); // 7, 8, 9
   Perfekt.visible := n = 10; // 10
end;

gemacht und es kommt folgender Fehler.. :

Code:

unit33.pas(23,25) Hint: Parameter "Sender" not used
unit33.pas(102,23) Error: Identifier not found "PresentRatePictures"
unit33.pas(105,42) Error: method identifier expected
unit33.pas(107,12) Error: Identifier not found "Schlecht"
unit33.pas(108,6) Error: Identifier not found "Ok"
unit33.pas(109,7) Error: Identifier not found "Gut"
unit33.pas(110,11) Error: Identifier not found "Perfekt"
unit33.pas(115) Fatal: There were 6 errors compiling module, stopping

Wenn auf den richtigen Button geklickt wird:

Delphi-Quellcode:

  n := StrToIntDef(Ergebnisse.Zahl.caption, 0);
  n := n + 1;
  Ergebnisse.Zahl.caption := IntToStr(n);

Ja bin jetzt nur noch bei einem Label.