procedure TFormPacienteNew.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
[...]
begin
PacienteNew1 := TFormPacienteNew.Create(Self);
PacienteNew2 := TFormPacienteNew.Create(Self);
PacienteNew1.Show;
PacienteNew2.Show;
end;