[XaKeR282]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
b:integer;
begin
for b := 5 to 10 do
i:= Random(b);
Edit1.Text:=IntToStr(i);
end;

я хочу, чтоб выдало случайное число от 5-ти до 1-ти, а как правильно написать?