Componentes.Terceros.jvcl/internal/3.36/1/examples/JvInterpreterDemos/JvInterpreterTest/samples/sample - makeform.pas

var
  MyForm: TForm;
begin
  MyForm := JvInterpreterMakeForm(SamplesDir+'fModalForm.pas');
  if MyForm.ShowModal = mrOk then
    showmessage('OK button clicked');
  MyForm.Free;
end;