Anfänger sucht Hilfe bei ersten Programierschritten

[lun87]

Nabend Hab ein wenig an meinem Prog gefummelt. Er compiliert schon mal, aber das mit dem array klappt net und das er die einzelnen Zahlen speichert funktioniert glaube ich auch nicht. Naja werde weiter probieren und schauen, vll hat jemand noch ne idee. Ansonsten schönen Advent noch

Delphi-Quellcode:

unit Uzahlenraten;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

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 }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  VersuchsZahl : TVersuchsZahl;

implementation

{$R *.dfm}

procedure TForm1.ratebuttonClick(Sender: TObject);
var i, ratezahl, randomzahl, versuchszaehler : integer;
begin
randomzahl := random(1)+1;
ratezahl := strtoint(eingabeedt.text);
  If (ratezahl = randomzahl) or (versuchszaehler = 4) then
    begin
      VersuchsZahl[i] := ratezahl;
      inc(i);
    for i := 0 to 4 do
      eingabezahlen.Caption := IntToStr(VersuchsZahl[i]);
      ausgabeedt.Caption := IntToStr(randomzahl);
    end
    else
      showmessage ('Neuer Versuch bitte!');
      eingabeedt.text := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
var i, ratezahl, versuchszaehler, randomzahl : integer;
begin
  i := 0;
  Randomize;
end;

end.

mfg
Lun87