단순한 일회성 폼 띄우기

type
  TSubForm = class(TForm)
  private
    { Private declarations }
    FResult : Integer;
  public
    { Public declarations }
    class function inits: Integer; static; //리턴값은 마음대로 선택하여 사용
  end;

{TSubForm}

class function TSubForm.inits: Integer;
begin
  with TSubForm.Create(nil) do
  begin
    try
      Position := poMainFormCenter;

      {To Do}

      ShowModal;

      Result := FResult;
    finally
      Free;
    end;
  end;
end;

Call

procedure TForm1.Button1Click(Sender: TObject);
begin
  TSubForm.inits;
  if TSubForm.inits then ..
  case TSubForm.inits of  ..
end;