Anfängerfragen: Speichern und Beenden!

[isofruit]

Hey, also ich lese mit Klick auf den Button "Semesterschnitt" alle Noten des Semesters ein. Da hab ich für jedes Editfeld einen variable erstellt (Semster1: a1-a6 ; Semester 2: b1-b6 usw.). Wenn ich am ende den Gesamtschnitt errechnen will, will ich das auf verlgeichbare Weise tun, allerdings soll noch die Gewichtung der einzelnen Fächer eingerechnet werden, das hab ich allerdings noch nicht fertig. Der Semesterschnitt ist einfach nur ein gleichverteilter Mittelwert.

Aussehen tut das ganze für ein Semester zb so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
a1:=StrToFloat (Edit1.Text);
a2:=StrToFloat (Edit2.Text);
a3:=StrToFloat (Edit3.Text);
a4:=StrToFloat (Edit4.Text);
a5:=StrToFloat (Edit5.Text);
a6:=StrToFloat (Edit6.Text);
s1:=(a1+a2+a3+a4+a5+a6)/6;
Label9.Caption:=FloatToStrF (s1,ffnumber, 8, 2);
end;