线程中设置FONT属性，为什么僵死了，谁能告诉我怎么解决
procedure TDisplayWordThread.Execute;
var
tmpStr, Word: string;
I: Integer;
begin
while not Terminated do
begin
Sleep(10);
if aString.Count > 0 then
begin
tmpStr:=aString[0];
aString.Delete(0);
with TLabel.Create(frmMain) do
begin
Parent := frmMain;
//EnterCriticalSection(Critical1);
Font.Name := '黑体'; //调试这一步就不动了，不知道为什么
//Font.Size := 20;
//Font.Color := clRed;
//Font.Style := [fsBold];
//LeaveCriticalSection(Critical1);
Name := 'lb_' + IntToStr(iCount);
Caption := tmpStr + IntToStr(iCount);
Left := 10;
Top := 10;
Height := 30;
Width := frmMain.Width - 40;
Inc(iCount);
end;
end;
end;
end;
