{
FormStyle example
This example ensures that the main form of the application is an MDI parent:
} 
constructor TForm1.Create(AOwner : TComponent);

begin
  inherited Create;
  if FormStyle <> fsMDIForm then
    	  FormStyle := fsMDIForm;
  if FormStyle = fsMDIForm then
    	  Edit1.Text := 'MDI form'
  else
    //This line never executes
    Edit1.Text := 'Not an MDI form';
end; 
