Cannot Make A Visible Window Modal error using 'form.showmodal' method

Hello,

I am trying to make a multiforms application by having only the main form created on start up and creating each new additional form dynamically as needed by creating that form object, using it as a modal and once that form's purpose is complete, it is freed from memory after it is closed. Only my main form is 'auto-created', all additional forms are set as 'available' in the the project options.

Here is sample code.

results form is declared as a global variable of TResultForm.
Hide Copy Code
procedure TMainForm.Button1Click(Sender: TObject);
begin
ResultsForm := TResultForm.Create(self);
try
ResultsForm.ShowModal;
finally
ResultsForm.Free;
end;
end;


The moment I call this method by clicking on the button I recieve an error message:

'Cannot make a visible window modal.'

On that form (ResultsForm) I have databases being linked to that form and displayed. Code for that works, no problems. Since trying this new sample code sourced from Embarcadero's help tool, only the controls on the new form (ResultsForm) are loaded, no explicitly added code on that form initiates.


Please help....


I didn't find the right solution from the Internet.
References
https://www.codeproject.com/Questions/41...ultiforms-appli
Video Demonstration