in Unit2:
Delphi-Quellcode:
var
er1,er2,er3,er4 : integer;
in Unit15:
Delphi-Quellcode:
...
if label18.Caption = label19.Caption then begin
p:= p+1;
label10.Visible:= true;
end
else
label11.Visible:= true;
...
er1:= p;
dies ist dann auch so für er2,er3 und er4
am Ende dann
Unit19:
Delphi-Quellcode:
var er, pro: real ;
begin
er:= er1 + ((er2)/ 4) + ((er3)/ 2) + er4;
pro := (er * 100) / 20;
Label1.Caption:= floattostr(pro);