niedrigstes Ergebnis raussuchen

[foofighter85]

hey leute, hab mehrere Rechnungen die alle das gleiche Ausrechnen nur mit unterschiedlichen Ausgangswerten jeweils....jetzt möchte ich das in meinem Label nur das geringste Ergebnis der Rechnungen angezeigt wird...hier ist mal mein code dafür....bin ein anfänger

Delphi-Quellcode:

procedure TForm1.ButtonBerechnenClick(Sender: TObject);
begin
 m        := StrToInt (EditPalettenlast.Text);
 g        := 10;
 n_eins   := 1;
 n_zwei   := 2;
 n_drei   := 3;
 n_vier   := 4;
 n_fuenf  := 5;
 n_sechs  := 6;

 //Berechnung für eine Palette
 Fa := ((n_eins*m*g)/2);
 LabelAuflager.Caption := floatToStr(Fa);
 Mmax := (Fa*0.45);
 LabelMoment.Caption := floatToStr(Mmax);

 //Berechnung für zwei Paletten
 Fa := ((n_zwei*m*g)/2);
 LabelAuflager.Caption := floatToStr(Fa);
 Mmax := (Fa*0.45);
 LabelMoment.Caption := floatToStr(Mmax);

 //Berechnung für drei Paletten
 Fa := ((n_drei*m*g)/2);
 LabelAuflager.Caption := floatToStr(Fa);
 Mmax := ((Fa*1.35)-(m*g*0.9));
 LabelMoment.Caption := floatToStr(Mmax);

 //Berechnung für 4 Paletten
 Fa := ((n_vier*m*g)/2);
 LabelAuflager.Caption := floatToStr(Fa);
 Mmax := (Fa*1.35-m*g*0.9);
 LabelMoment.Caption := floatToStr(Mmax);

 //Berechnung für 5 Paletten
 Fa := ((n_fuenf*m*g)/2);
 LabelAuflager.Caption := floatToStr(Fa);
 Mmax := (Fa*2.25-m*g*1.8-m*g*0.9);
 LabelMoment.Caption := floatToStr(Mmax);

 //Berechnung für 6 Paletten
 Fa := ((n_sechs*m*g)/2);
 LabelAuflager.Caption := floatToStr(Fa);
 Mmax := (Fa*2.25-m*g*1.8-m*g*0.9);
 LabelMoment.Caption := floatToStr(Mmax);
end;

[edit=Sharky]Delphi-Tags eingefügt. Bitte beim nächsten mal selber machen. Mfg, Sharky[/edit]