Delphi表单创建没有冻结主线程

type
  TFormThread = class(TThread)
  private
    FForm: TForm;
  protected
    procedure Execute; override;
  public
    constructor Create(AForm: TForm);
  end;

constructor TFormThread.Create(AForm: TForm);
begin
  inherited Create(True);
  FForm := AForm;
  FreeOnTerminate := True;
end;

procedure TFormThread.Execute;
begin
  FForm.Show;
  Application.ProcessMessages;
end;

var
  Form: TForm;
  FormThread: TFormThread;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form);
  FormThread := TFormThread.Create(Form);
  FormThread.Start;
  Application.Run;
end.