Ich weiß zwar nicht wie das intern aussieht, aber "Ergebnisse.Zahl.Caption := ..." könnte die Lösung sein.
Damit hats funktioniert, danke
.
(Um den Counter wieder auf 0 zu setzen):
Code:
procedure TErgebnisse.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
n := StrToIntDef(Ergebnisse.Zahl.caption, 0);
n := 0;
Ergebnisse.Zahl.caption := IntToStr(n);
end;