[lazarus] QT Loop Problem

[codepunk]

The loop is in this procedure what is the best way to fix it?

What type of base object is params can I place a exit check in it.?

Cliff

procedure TCustomForm.CreateParams(var Params : TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    if (Parent = nil) {and (ParentWindow = 0)} then
    begin
     //    WndParent := Application.Handle;
      { TODO : No application handle }
      Style := Style and not (WS_CHILD or WS_GROUP or WS_TABSTOP);
    end;
  end;
end;