Wofür braucht man hier eine Schleife?
Einfach neue Werte eingeben und erneut den Button betätigen.
Soll 'ne leere Eingabemaske dastehen, dann diese beiden Zeilen
Delphi-Quellcode:
Kgroesse.Text:= ('');
Kgewicht.Text:= ('');
an das Ende der Prozedur verschieben.