Anfänger sucht Hilfe bei ersten Programierschritten

[Klaus01]

Delphi-Quellcode:

type
  TVersuchsZahl = array [0..4] of integer;
  TForm1 = class(TForm)
    ratebutton: TButton;
    ausgabeedt: TPanel;
    eingabeedt: TEdit;
    eingabezahlen: TPanel;
    Label1: TLabel;
    procedure ratebuttonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    versuchszaehler: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  VersuchsZahl : TVersuchsZahl;

implementation

{$R *.dfm}

procedure TForm1.ratebuttonClick(Sender: TObject);
var i, ratezahl, randomzahl,  : integer;                  // Versuchzaehler als private Variable deklariert
begin
randomzahl := random(1)+1;                                // hier vielleicht mal den Bereich erhöhen random(1)
                                                          // bringt nicht allzuviele unterschiedliche Werte
ratezahl := strtoint(eingabeedt.text);
inc(versuchszaehler);                                // Du solltest dann versuchszaehler mit 0 
                                                     // initialisieren
VersuchsZahl[i] := ratezahl;

  If (ratezahl = randomzahl) or (versuchszaehler = 4) then
    begin
      for i := 0 to 4 do
        begin
          eingabezahlen.Caption := IntToStr(VersuchsZahl[i]);
          ausgabeedt.Caption := IntToStr(randomzahl);
        end
    else
      showmessage ('Neuer Versuch bitte!');
      eingabeedt.text := '';

end;

Grüße
Klaus