Error al llamar un form en ShowModal

[DarkByte]

Lo primero, Feliz Navidad

Estoy aquí intentando hacer un form con un TCalendar para seleccionar la fecha. Lo intento llamar en ShowModal para que espere a que el form se cierre.. El caso es que recibo un error: Cannot made a visible windows modal.

Código Delphi [-]
procedure TfrmNMVenta.sbFechaClick(Sender: TObject);
var
  frmSeleccionarFecha : TfrmSeleccionarFecha;
begin
  try
    //Creamos el form
    frmSeleccionarFecha := TFrmSeleccionarFecha.Create(Self);
   // Rellenamos las variables del nuevo form con las de este
    If FechaDia  <> '' Then frmSeleccionarFecha.Dia  := FechaDia;
    If FechaMes  <> '' Then frmSeleccionarFecha.Mes  := FechaMes;
    If FechaAnyo <> '' Then frmSeleccionarFecha.Anyo := FechaAnyo;

   //Lo mostramos en modal
    frmSeleccionarFecha.ShowModal;
    
   //Recogemos los resultados
    FechaDia  := frmSeleccionarFecha.Dia;
    FechaMes  := frmSeleccionarFecha.Mes;
    FechaAnyo := frmSeleccionarFecha.Anyo;

   //Lo mostramos
    eFecha.Text := FechaDia+'/'+FechaMes+'/'+FechaAnyo;
  except
    ShowMessage ('Error: No se pudo seleccionar la fecha');
  end;
end;

Gracias por vuetra ayuda!