Gut, das es jetzt klappt. Ich würde aber die Variablen mx1,mx2,my1,my2 durch 2 TPoints ersetzen. Das sähe dann so aus:
Delphi-Quellcode:
[...]
const
Radius=100;
var
t:Real;
M1,M2:TPoint;
begin
if s1.Visible then begin
M1.X:=s1.left+(s1.Width div 2);
M1.Y:=s1.top+(s1.Height div 2);
M2.X:=s2.left+(s2.Width div 2);
M2.Y:=s2.top+(s2.Height div 2);
t:=sqr(M1.X-M2.X)+sqr(M1.Y-M2.Y);
[...]
Mfg