Array Rückgabewert Funktion

[Kuehter]

Einmal der gesamte code sorry ich weiß aber nicht wie du das meinst damit daskein funktionsaufruf da ist ich weiß auch nicht wo ich die am besten aufrufen kann ein boolean ist ja in der if einen int weiß ich auch wie ich den am besten aufrufen kann nur ich weiß nicht wie ich das hin bekomm das array da raus zu ziehen

Delphi-Quellcode:

function bedingung: Tintegerarray;
var
  max, min: integer;
  counter: integer;
  Generierer: array[0..4] of integer;

begin

  max := 250;
  min := 1;
  for counter := 0 to 3 do
  begin
     Generierer[counter] := trunc(random(max))+min;
  end;

  SetLength(result,6);
  Result[0] := Generierer[0] + Generierer[1];    //A2 + A1 = C1
  Result[1] := Generierer[2] + Generierer[0];    //B1 + A1 = C2
  Result[2] := Generierer[1] + Generierer[3];    //A2 + B2 = D1
  Result[3] := Generierer[2] + Generierer[3];    //B1 + B2 = D2
  Result[4] := Result[0]+Result[2];              //engergebnis

  if (Result[4] = Result[0] + Result[2]) and (Result[4] = Result[1] + Result[3]) then
        Result[4] := Result[1]+Result[3]
  else
        ShowMessage('Die Zahlen stimmen nicht ');

end;

procedure TForm1.Button1Click(Sender: TObject);

var
  rec: Integerarray ;

begin
  bedingung;
   Edit1.Text := InttoStr(rec[1]);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
       Randomize;
end;

danke schon mal im vorraus