Estrutura While para decrementar no Delphi!

Monte o form como na imagem abaixo:

Vamos ao código no botão ok:

var i:integer;
begin
i:=10;
while i >= 1 do
begin
listbox1.Items.Add(inttostr(i)) ;
i:=i-1;
end;
end;