[stil]

в первом добавь

Код:

uses ExtCtrls

и вместо

Код:

Top:=Y-trunc(S.Height/2);
Left:=X-trunc(S.Width/2);

замени на

Код:

Randomize;
left:=random(form1.ClientWidth-Width);
top:=random(form1.ClientHeight-Height);