Function used to determine whether a form with the form style fsmdichild exists

Function tmain. findform (Caption: string): bool;
VaR
I: integer;
Begin
For I: = 0 to main. mdichildcount do
Begin
// Determine whether a social form exists through the title. If yes, the form is restored and true is returned. If no social form exists, false is returned.

If main. mdichil1_[ I]. Caption = caption then
Begin
Sendmessage (mdichilze [I]. Handle, wm_syscommand, SC _maximize, 0 );
Mdichildren [I]. Enabled: = true;
Mdichildren [I]. show;
Mdichil1_[ I]. setfocus;
Result: = true;
Break;
End
Else
Result: = false;
End
End;