Delphi Tutorial Graphics - Show flowers randomly on desktop.

          Use system timer to put flowers randomly on desktop.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Image1.Top:=Random(Screen.Height);
     Image1.Left:=Random(Screen.Width);
end;

DOWNLOAD this example

Click here to download this complete example for Delphi 6. (File size 33KB)