Mach in deinem OnButtonClick einfach folgendes:
Delphi-Quellcode:
var i : Integer;
for i := 1 to maxzahl do begin
datensatz[i].zeichen := '';
datensatz[i].anzahl:= 0;
datensatz[i].haeufig:= 0;
end;
Damit initialisierst du den Record mit "leeren Werten", dann muesste es klappen.