[Fonoman]

Глобальная переменная это хорошо )
а вот нельзя как то по другому ?
Мне надо что бы при нажатие кнопки
включался рандом от 1 до 13 и включался таймер
до числа который выдал рандом

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var n,i: integer;
begin
  k := 0;
  n := 3+random(9); \\ если брать его в таймере то он всегда меняется(
  for i:= 1 to n do
  begin
    if k < n then
    begin
    inc(k);
    label1.caption := inttostr(k)
    end
    else timer1.Enabled:=False;
  end;
end;

end.

Admin: Пользуемся тегами!