Delphi7,list box,array

Dobrý den,
Musím pomocí Editu(key press) zadat do listboxu výdělek pracovníků po doby 7dní(tedy 7 čísel).
A teď do nějakého Labelu vypsat Celkovou mzdu(za všechny dny),a průměrný výdělek na 1 den.
A nakonec do 2hého Listboxu pomocí Buttonu zapsat cenu o 20% menší za každý den.
V priloze moje rozpracované pole.

PS: extrémně spěchá (za správné řešení bych dal vše)