Zufallsvariable muss durch x teilbar sein, möglich?

[Hans33]

Hallo

Ich lasse mit einem Timer ein Bild (Image1) nach oben bewegen auf ein anderes Bild (Image2) zu.
Image2.Left wird mit einer Zufallsvariable erstellt, Image2.Top mit einer anderen Zufallalsvariable.
Da sich aber das Image1.Top oder Image1.Left bei jedem Timerintervall um 28 vergrößert, und ich als Code

Delphi-Quellcode:

If (Image1.Top=Image2.Top+28)
or (Image1.Top=Image2.Top-28) Then
begin
randomize;
a:=Random(362)+1;
b:=Random(434)+1;
Image2.Top:=a;
Image2.Left:=b;
end;

habe, passiert es häufig das kein neues Image2.Left und Image2.Top erstellt wird.
Kann ich entweder a und b so generiren lassen dass sie immer in einem Fleck darstellen, an dem auch Image1 genau daranpasst,
oder muss ich es anders machen??

Ich hoffe ihr habt mein Problem verstanden?!?!