Beim Kreis merkst du dir den Punkt in OnMouseDown.
Dazu die Parameter x und y in einem TPoint speichern.
FUrsprung := Point(x,y);
Im Event OnMouseMove bekommt du neue Koordinaten mit denen du den Radius des Kreises berechnen kannst.
Delphi-Quellcode:
FAktPunkt := Point(x,y);
radius := CalcDistance(FUrsprung, FAktPunkt);
...
// Hilfsfunktion
function CalcDistance(p1,p2:TPoint):integer;
begin
Result := Round(Sqrt(Sqr(p1.x-p2.x)+Sqr(p1.y-p2.y)));
end;
Zauberstab ist natürlich deutlich anspruchsvoller; ich würde das nach hinten verschieben bis du die einfacheren Dinge gelöst hast.