Smiley Über das formular bewegen

[Nils1984]

danke für die schnelle hilfe, hab es etwas anders gelöst:

Delphi-Quellcode:

Function TSmileyjagd.SmileyXPosition :Integer;
Begin
  Randomize;
  SmileyXPosition := Random(650);
end;

Function TSmileyjagd.SmileyYPosition :Integer;
Begin
  Randomize;
  SmileyYPosition := Random(550);
end;

Procedure tSmileyJagd.SmileysBewegen;
begin
  ImSmiley1.Left := SmileyXPosition;
  ImSmiley1.Top  := SmileyYPosition;
  ImSmiley2.Left := SmileyXPosition;
  ImSmiley2.Top  := SmileyYPosition;
  ImSmiley3.Left := SmileyXPosition;
  ImSmiley3.Top  := SmileyYPosition;
  ImSmiley4.Left := SmileyXPosition;
  ImSmiley4.Top  := SmileyYPosition;
  ImSmiley5.Left := SmileyXPosition;
  ImSmiley5.Top  := SmileyYPosition;
  ImSmiley6.Left := SmileyXPosition;
  ImSmiley6.Top  := SmileyYPosition;
  ImSmiley7.Left := SmileyXPosition;
  ImSmiley7.Top  := SmileyYPosition;
  ImSmiley8.Left := SmileyXPosition;
  ImSmiley8.Top  := SmileyYPosition;
  ImSmiley9.Left := SmileyXPosition;
  ImSmiley9.Top  := SmileyYPosition;
  ImSmiley10.Left := SmileyXPosition;
  ImSmiley10.Top  := SmileyYPosition;
End;

is zwar n bissern umständlich aber es läuft