var<br><br> I: Integer;<br> begin<br> Randomize;<br> for I := 1 to 50 do begin<br> { Write to window at random locations }<br> Canvas.TextOut(Random(Width), Random(Height), 'Boo!');<br> end;<br> end;