dll中创建的组件，在主窗体上显示不出来？

Question

在主窗体的create事件里，我调用dll的函数想在该窗体上创建一个shape组件，怎么显示不了？GenerateABall(self.handle);
procedure GenerateABall(AHandle:THandle);stdcall;
implementation
procedure GenerateABall(AHandle:THandle);
var
  ball:TShape;
  radius :integer;//半径
begin
  application.Handle := AHandle;
  ball := TShape.Create(application);
  ball.Parent := application.MainForm;
  randomize;
  radius := random(round(100));//application.MainForm.Width div 8));
 
  radius := 30;
  ball.Width := radius *2;
  ball.Height := ball.Width;
 
  ball.Brush.Color := clyellow;
  ball.Pen.Color := ball.Brush.Color;
 
  ball.Left := 0;
  ball.Top  := 0;
  ball.Shape := stCircle;
  ball.Show;
end;

Answer 1

application.Handle := AHandle;
  ball := TShape.Create(application);
  ball.Parent := application.MainForm;