[Михалыч]

Как-то сложно у вас все.
Вот все тоже и всего 2 строчки кода:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Randomize;
Edit1.Text:=IntToStr(Random(10));
end;

end.