程序运行中线程线程的奇怪问题

一个画线程序
程序运行,画布没反映,一片空白,
单步运行,画布上出现随机线条,和期望相符.
这是下面全部代码,请请点procedure TForm1.Button1Click(Sender: TObject);
begin
  MyThread:=TMyThread.Create(False,Canvas,Width,Height);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  MyThread.Terminate;
  close;
end;此处为线程相关代码:
constructor TMyThread.Create(IsSuspended: Boolean; Canvas: TCanvas;
  Width, Height: Integer);
begin
  inherited Create(IsSuspended);
  Self.Suspended:=IsSuspended;
  FCanvas:=Canvas;
  FWidth:=Width;
  FHeight:=Height;
end;procedure TMyThread.Execute;
var
  i:Integer;
begin
  for i:=0 to 500 do
  begin
    GetRP;
    GetRC;
    Randoms;
  end;
end;procedure TMyThread.GetRC;
begin
  Randomize;
  FX1:=Random(FWidth);
  FY1:=Random(FHeight);
  Randomize;
  FX2:=Random(FWidth);
  FY2:=Random(FHeight);
end;procedure TMyThread.GetRP;
begin
  Randomize;
  FColor:= Random($7FFFFFFF);
end;procedure TMyThread.Randoms;
begin
  FCanvas.Lock;
  FCanvas.Pen.Color:=FColor;
  FCanvas.MoveTo(FX1,FY1);
  FCanvas.LineTo(FX2,FY2);
  FCanvas.Unlock;
end;多谢了