[Flop88]

Код:

procedure TForm1.btn1Click(Sender: TObject);
begin
Randomize;
aa:= random(999999);
SendMessage(hl, WM_SETTEXT, 0,  integer(aa));
end;

Не прокатывает