array + messagebox

[biby90]

hallo leute.
ich habe im mom ein praktikum und lerne delphi
jezz isses die aufgabe einen array zu erstellen der bei einem Wert eine messaagebox anzeigt. also dass array is fertig nur die box will net.



var
Form1: TForm1;
GFixArray: array[0..4] of integer;

GDynArray: array of integer;









implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to 4 do
GFixArray[i] := Random(5);


end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 4 do
ShowMessage(i);