Mám na formuláři komponenty : edit1, Button1, ListBox1.

Můj program má zapisovat známky z editu1 do listboxu.

Zapíše použe jednu a to opakovaně, např zadám 1 klinu na button1, 1 vloži do listboxu, ale pokud zadám např 2, původní hodnotu přepíše.


Kód :

pocet:= pocet+1;
listbox1.clear;

for n:=1 to pocet do
begin
radek:=edit1.text;
listbox1.Items.Add(radek);